Wie kann man bei Lazarus in einem Memo alle Zeichen nebeneinander bekommen?

[nahpets]

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)