probleme mit der ausgabe von strings

[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