Text umwandeln zu Morsecode :)

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

Grüße
Klaus