[psihbai]

Так, есть два Tedit, в первом символы на втором будут коды, например А=8D или G=6e. Как это сделать где моя ошибка?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
a, b: integer;
s:string;
simvol: array ['1','2','3','4','5','6','7','8','9','0','q','w','e','r','t','y',
'u','i','o','p','a','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m',
'Q','W','E','R','T','Y','U','I','O','P','A','S','D','F','G','H','J','K','L','Z',
'X','C','V','B','N','M','й','ц','у','к','е','н','г','ш','щ','з','х','ъ','ф','ы',
'в','а','п','р','о','л','д','ж','э','я','ч','с','м','и','т','ь','б','ю','Й','Ц',
'У','К','Е','Н','Г','Ш','Щ','З','Х','Ъ','Ф','Ы','В','А','П','Р','О','Л','Д','Ж',
'Э','Я','Ч','С','М','И','Т','Ь','Б','Ю','Ә','І','Ң','Ғ','Ү','Ұ','Қ','Ө','Һ','ә',
'і','ң','ғ','ү','ұ','қ','ө','һ'] of string;
kod: array['1','2','3','4','5','6','7','8','9','0','q','w','e','r','t','y',
'u','i','o','p','a','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m',
'Q','W','E','R','T','Y','U','I','O','P','A','S','D','F','G','H','J','K','L','Z',
'X','C','V','B','N','M','й','ц','у','к','е','н','г','ш','щ','з','х','ъ','ф','ы',
'в','а','п','р','о','л','д','ж','э','я','ч','с','м','и','т','ь','б','ю','Й','Ц',
'У','К','Е','Н','Г','Ш','Щ','З','Х','Ъ','Ф','Ы','В','А','П','Р','О','Л','Д','Ж',
'Э','Я','Ч','С','М','И','Т','Ь','Б','Ю','Ә','І','Ң','Ғ','Ү','Ұ','Қ','Ө','Һ','ә',
'і','ң','ғ','ү','ұ','қ','ө','һ'] of string;
begin
s:=Edit1.Text;
for a :=0 to length(s) do
for b := 0 to 144 do
if s[a]=simvol[b] then Edit2.Text:=Edit2.Text+kod[b];
end;

Admin: Пользуемся тегами!