Code:
procedure TForm1.Button3Click(Sender: TObject);
var x:integer; y:string;
begin
label1.caption:=' ';
wor:=memo1.text;
s:=wor;
memo1.clear;
for i:=1 to length(s) do
begin
x:=ord(s[i]);
begin
If x=69 Then x:=90 Else
If x=101 Then x:=122 Else
x:=x
end;
y:=chr(x);
Memo1.Lines.strings[0]:=memo1.lines.strings[0]+y;
end;
end
Ich habe ein Programm geschrieben, in dem alle e bzw. E gegen z und Z ausgetauscht werden. Die Ausgabe erfolgt in einem Memo, was soweit auch alles klappt, zumindest, solange der Anfangstext nur eine Zeile lang ist. Sobald der Text mehr als eine Zeile einnimmt, schreibt das Programm einige Wortschnipsel untereinander ins Memo... und irgendwie rückwerts. Vllt hat einer von euch ja eine Idee, wie ich das hinbekommen kann, außer, dass ich die Zeile länger mache. Dankeschön schonmal im Vorraus und falls ihr weitere Infos wollt einfach fragen. Auf dem Bild seht ihr, was ich meine.