|
Сообщение от kolyacher
Это гон какой то...
Записываю в data.txt символ "а"
пишу код...
for i:=0 to 66000 do
if Chr(Ord(GetChar(st, i))-i)='а' then
begin
st:=integerToString(i);
drawText(st,0,j);
j:=j+10;
end;
Выдает 64464...
Ставлю вместо i 64464 Выводит далеко не а???  |
Извините!!! Здесь я прогнал...
Надо if Chr(Ord(GetChar(st, 1))-i)='а' then вместо if Chr(Ord(GetChar(st, i))-i)='а' then, тогда рулит выдаёт 64384, выводит 'а'...
Только со строкой проблемы... Не все символы нормальные???
Пхоже i для разных символов разное...