Zitat von
Klaus01:
Versuche es einmal so:
Delphi-Quellcode:
var
s,out: string; i:integer;
morsezeichen: String;
begin
s:=edit1.text;
out:=''; //Ausgabestring;
for i:= 1 to length(s)do
begin
case s[i] of
'0' : morsezeichen:='..---..';
'1' :
...
end;
out:= out+morsezeichen;
end;
end;
Aber in die andere Richtung wird es dann interessant, weil die Morsezeichen unterschiedlich lang sind für die einzelnen Buchstaben.