Замена букв!

[$T@LKER]

Сообщение от kykysya

Посмотрите код но думаю, хорошего мало я только недавно стал изучать Delphi.
var s:string;
K:STRING;
i:integer;
begin
s:=edit1.Text;
for i:=1 to length(s) do
if s[i]='А' then s[i]:='02';
for i:=1 to length(s) do
if s[i]='Б' then s[i]:='03';
for i:=1 to length(s) do
if s[i]='В' then s[i]:='04';
for i:=1 to length(s) do
if s[i]='Г' then s[i]:='05';
form1.Label1.Caption:=s;

Как по мне то всё то можна одним циклом фор забахать и потом смотреть чё получиться но поидеи должно работать?!

[Sazary]

kykysya, естественно, у вас будет возникать ошибка.
Вот вместо этого:

for i:=1 to length(s) do
if s[i]='А' then s[i]:='02';

Напишите:

while pos('А',s)<>0 do
 begin 
 i := pos('А',s);
 delete(s,i,1);
 insert('02',s,i);
 end;

С остальными по аналогии.

[$T@LKER]

Сообщение от kykysya

Посмотрите код но думаю, хорошего мало я только недавно стал изучать Delphi.
var s:string;
K:STRING;
i:integer;
begin
s:=edit1.Text;
for i:=1 to length(s) do
if s[i]='À' then s[i]:='02';
for i:=1 to length(s) do
if s[i]='Á' then s[i]:='03';
for i:=1 to length(s) do
if s[i]='Â' then s[i]:='04';
for i:=1 to length(s) do
if s[i]='Ã' then s[i]:='05';
form1.Label1.Caption:=s;

Как по мне то всё то можна одним циклом фор забахать и потом смотреть чё получиться но поидеи должно работать?!

[nusik]

Наверное автор, имеет ввиду примерно следующий "алфавит":
Широкая электрификация южных губерний даст мощный толчок подъёму сельского хозяйства.

сonst
alfavit:='АБВГ'
...
var
temp:string;str:string; code:integer;
...
begin
   temp:='';
   for i:=1 to length(edit1.text) do 
      begin 
        if pos(edit1.text[i],alfavit)<>0 then  begin
        //узнаем собственно код соот-щий букве 
        code:=pos(edit1.text[i],alfavit);
        str:=inttostr(code);
        //Добавляем "лидирующие" нули, если '7' то '07'
        for j:=1 to 2-length(code) do 
        str:='0'+str;
        //Добавляем тек символ в общую строку
        temp:=temp+str;
        end;
      end;
Edit1.Text:=temp;
end;

[Ky3Heu,]

Все правильно пишешь. Тока числа тут должны быть от 0 до 9 иначе срабатывает переопределение кода клавиш, отсуда и несоответствие типов. Поищи в нете алгоритмы перевода систем исчисления....

[ArtInt]

Если это коды клавиш, то используются функции ord и chr
Противоположные друг другу.
Может пересмотреть алгоритм и загонять в один файл (или Memo) символы через запятую, а другой файл (или Memo) коды этих символов.
А потом создать две переменные TStringList и загрузить в них.
При этом указав StringList.Delimiter:=','; (разделитель запятая),
потом StringList.DelimitedText:=Memo1.Tex t;
И потом уже будет понятно что совподает строчка(индекс) и легче будет искать.

[kykysya]

Cпасибо за помощь, буду пробовать!

[Msn.Arm]

вообще то есть оператор ord который возвращает код символа из таблицы .