|
![]() |
#1 |
Участник
|
Оффтоп, но выкладываю чтоб было
Функция перевода координат из X Y в A1 Код: RC(Row : Integer;Col : Integer) : Code[10] // 65 - код символа 'A' , 64 - код символа '@' Col -= 1; // Col - смещение относительно символа 'A' Ch2 := 65 + Col MOD 26; Ch1 := 64 + Col DIV 26; EXIT(DELCHR(STRSUBSTNO('%1%2%3',Ch1,Ch2,Row),'=','@')); |
|