Wenn Du immer in die Zeile 0 schreibst, ist das Ergebnis auch immer in der Zeile 0.
Mir ist nicht klar, was Du da machen willst:
Delphi-Quellcode:
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 // wo ist i definiert?
x:=ord(s[i]);
begin
If x=69 Then x:=90 Else
If x=101 Then x:=122 Else
x:=x; // sittlicher Nährwert?
end;
y:=chr(x);
Memo1.Lines.strings[0]:=memo1.lines.strings[0]+y;
end;
end;
Meinst Du eventuell sowas?
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var x:integer; y:string;
i, k : Integer;
s : String;
t : String;
begin
label1.caption := ' ';
for k := 0 to memo1.lines.count - 1 do begin
s := memo1.lines[k];
t := '';
for i := 1 to length(s) do begin
x := ord(s[i]);
If x = 69 Then x := 90 Else
If x = 101 Then x := 122;
t := t + chr(x);
end;
Memo1.Lines[k] := t;
end;
end;
(nur hingedaddelt und nicht getestet)