hallo ich habe ein Problem bitte helft mir !!!
Ich bin noch nicht so viel Erfahrung mit Delphi aber ein bisschen mit turbo-Pascal.
Ich will ein Programm erstellen womit man texte verschlüsseln lassen kann.
Zu meinem Problem: wenn ich die ersetzten Buchstaben ausgeben lassen will in ein TRichEdit schreibt er jeden ersetzten Buchstaben in eine neue Zeile ich will sie aber hintereinander haben, hat da jemand einen tipp für mich???
Der text heißt „code“, und die Verschlüsselung „decode“
MORSE-ALPHABET
Delphi-Quellcode:
procedure TMorse.Button1Click(Sender: TObject);
begin
s:= code.Text;
x:=length(s);
decode.lines.clear;
for n:=1 to x do begin
s1:=copy(s,n,1);
if s1=' ' then break;
if s1='a' then decode.Lines.add('.- ');if s1='b' then decode.lines.Add('-... ');
if s1='c' then decode.lines.Add('-.-. ');if s1='d' then decode.lines.Add('-.. ');
if s1='e' then decode.lines.Add('. ');if s1='f' then decode.lines.Add('..-. ');
if s1='g' then decode.lines.Add('--.');if s1='h' then decode.lines.Add('.... ');
if s1='i' then decode.lines.Add('.. ');if s1='j' then decode.lines.Add('.--- ');
if s1='k' then decode.lines.Add('-.- ');if s1='l' then decode.lines.Add('.-.. ');
if s1='m' then decode.lines.Add('-- ');if s1='n' then decode.lines.Add('-. ');
if s1='o' then decode.lines.Add('--- ');if s1='p' then decode.lines.Add('.--. ');
if s1='q' then decode.lines.Add('--.- ');if s1='r' then decode.lines.Add('.-. ');
if s1='s' then decode.lines.Add('... ');if s1='t' then decode.lines.Add('- ');
if s1='u' then decode.lines.Add('..- ');if s1='v' then decode.lines.Add('...- ');
if s1='w' then decode.lines.Add('.-- ');if s1='x' then decode.lines.Add('-..- ');
if s1='y' then decode.lines.Add('-.-- ');if s1='z' then decode.lines.Add('--.. ');
if s1=' ' then decode.lines.Add(', ');if s1='.' then decode.lines.Add('.-.-.- ');
if s1=',' then decode.lines.Add('--..-- ');if s1=':' then decode.lines.Add('---... ');
if s1='´' then decode.lines.Add('.----. ');if s1='?' then decode.lines.Add('..--.. ');
if s1='!' then decode.lines.Add('! ');if s1='1' then decode.lines.Add('.---- ');
if s1='2' then decode.lines.Add('..--- ');if s1='3' then decode.lines.Add('...-- ');
if s1='4' then decode.lines.Add('....- ');if s1='5' then decode.lines.Add('..... ');
if s1='6' then decode.lines.Add('-.... ');if s1='7' then decode.lines.Add('--... ');
if s1='8' then decode.lines.Add('---.. ');if s1='9' then decode.lines.Add('----. ');
if s1='0' then decode.lines.Add('----- ');if s1=';' then decode.lines.Add('; ');
if s1='-' then decode.lines.Add('-....- ');if s1='/' then decode.lines.Add('-..-. ');
if s1='(' then decode.lines.Add('-.--.- ');if s1=')' then decode.lines.Add('-.--.- ');
if s1='"' then decode.lines.Add('.-..-. ');if s1='=' then decode.lines.Add('-...- ');
if s1='ä' then decode.lines.Add('.-.- ');if s1='ö' then decode.lines.Add('---. ');
if s1='ü' then decode.lines.Add('..-- ');
end;
end;
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]