Замена букв!

[kykysya]

Помогите решить задачу, в которой нужно заменить буквы на цифры, например букву 'М' на '12'.

[IT-man]

а почему на 12???

[Sazary]

Возникло подозрение, что есть некая таблица соответствия чисел буквам, согласно которой и нужно делать замены.
А, может, банально нужно заменить все буквы.

pos, delete и insert в помощь.

[kykysya]

Действительно есть соотношение буквы и цифры, только у меня выбивает ошибку несоответствия типов Char and String!И я не могу с этим справится!

[$T@LKER]

Символоам соотвествую коды из таблицы ASCII!!!!!!!!!!!

[Sazary]

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

только у меня выбивает ошибку несоответствия типов Char and String!И я не могу с этим справится!

Раз есть ошибка, значит есть и код. Выкладывайте )

Сообщение от $T@LKER

Символоам соотвествую коды из таблицы ASCII!!!!!!!!!!!

Возможно, имеется в виду своя (пользовательская) таблица соответствия.

[kykysya]

Спасибо я посмотрю!

[$T@LKER]

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

Возможно, имеется в виду своя (пользовательская) таблица соответствия.

Своя??? Тогда я впринцыпе невижу проблемы - банальною проверкою иф думаю можна это зделать!?

[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]

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

Раз есть ошибка, значит есть и код. Выкладывайте )


Возможно, имеется в виду своя (пользовательская) таблица соответствия.

Я так понял, она засекречена) и пока она засекречена, мы не чем не сможем помочь.