Hmm, ich hatte den Code einfach so geschrieben.. Hat natürlich nicht geklappt
Der hier geht schon besser:
Delphi-Quellcode:
function FindeHandyBuchstaben(X:Char) : String;
begin
result := 'Keine Zahl!';
case X of // Wer lieber Caselisten mag:
'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 TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
S := '2243';
edit1.clear;
for i := 1 to length(S) do
Edit1.Text := Edit1.Text + FindeHandyBuchstaben(S[i]) + ' ';
// TEXT = ABC ABC GHI DEF
end;