Replace Many Character to Number

[e3xpic]

How can i Replace Many Character in Edit1.text to Number in Edit2.text
for example
A to 1
B to 2
C to 3
D to 4

if text in Edit1.text='ABCD' will become Edit2.text='1234'
thank

[madref]

Code: Pascal  [Select][+][-]

1. Edit2.Text := '';
2. for j := 1 to Length(Edit1.Text) do
3.    Edit2.Text := Edit2.Text + CHR(ORD(Edit1.Text[j])-16);

[Handoko]

There are many different ways to do it.

Usually, I will avoid hardcoding the constants. But if you don't mind, this code works as what you want:

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   S: string;
4. begin
5.   S := Edit1.Text;
6.   S := S.Replace('A', '1');
7.   S := S.Replace('B', '2');
8.   S := S.Replace('C', '3');
9.   S := S.Replace('D', '4');
10.   Edit2.Text := S;
11. end;

[e3xpic]

Perfect! Works like a charm. Thank you.