Nummer zu String

[axelf98]

Hmm... Vielleicht so:

Delphi-Quellcode:

var S: String;

...
function FindeHandyBuchstaben(X:Pchar) : String;
begin
result := 'Keine Zahl!';
case X of 
'1' : result := ' ';
'2' : result := 'ABC';
'3' : result := 'DEF';
'4' : result := 'GHI';
'5' : result := 'JKL';
'6' : result := 'MNO';
'7' : result := 'PQRS';
'8' : result := 'TUV';
'9' : result := 'WXYZ';
'0' : result := ' ';
end;
end;
...

procedure Button1Click(Sender);
var i : integer;
begin

S := '1284';

for i := 1 to length(S) do
Edit1.Text := Edit1.Text + FindeHandyBuchstaben(S[i])+ '__' ;

// Edit1.Text = ABC__DEF__TUV__GHI 

end;