probleme mit der ausgabe von strings

[Ultimator]

Zitat von Binärbaum:

Statt der vielen if-Anweisungen kann man auch case nehmen.

Delphi-Quellcode:

procedure TMorse.Button1Click(Sender: TObject);
var s1: char;
begin

s:= code.Text;
x:=length(s);

decode.lines.clear;
for n:=1 to x do begin

s1:=s[n];

case s1 of
  ' ': break;
  'a': decode.Lines.add('.- ');
  ...
end;
end;


end;

MfG
Binärbaum

Ähm, hast du schonmal versucht, in einem Delphi-Programm eine case-Verzweigung mit Strings zu machen?
Geht nämlich

//edit Hab das "nicht" mal entfernt