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)

[PaulMaler]

Jetzt gehts, vielen vielen Dank. Ich weiß zwar nicht wirklich was mit dem

Code:

memo1.lines.count - 1

anzufangen, aber dafür mach ich das wohl auch noch nicht lange genug. Auf jeden Fall danke dafür.

[PaulMaler]

Wo ich gerade die ganzen superantworten hier sehe sollte ich vllt erwähnen, dass das nur schulisches Programmieren ist. Mit den ganzen Möglichkeiten von denen hier momentan die Rede ist, kann ich halt echt noch nicht viel anfangen, aber das kommt auch noch. Davon abgesehen, dass ich das mehr in meiner Freizeit mache als in der Schule und die Schüler gerade so mit den Edit Fenstern und Buttons umgehen können... Danke auf jeden Fall für eure Hilfe. Je mehr man macht, jemehr lernt an. Und vor allem immer Neues.

[Perlsau]

Zitat von PaulMaler:

Jetzt gehts, vielen vielen Dank. Ich weiß zwar nicht wirklich was mit dem

Code:

memo1.lines.count - 1

anzufangen, aber dafür mach ich das wohl auch noch nicht lange genug. Auf jeden Fall danke dafür.

Wenn du durch eine Liste – wie z.B. die Stringliste Lines eines TMemos – iterierst, mußt du darauf achten, ob die Zählung bei 0 oder bei 1 beginnt. Bei Strings beginnt die Zählung immer bei 1. Bei Listen hat das erste Item immer den Index 0. Wenn du daher Count einer Stringliste abfragst und z.B. 100 als Resultat erhältst, dann geht der Index der Liste von 0-99, und deshalb mußt du beim Count 1 abziehen, sonst referenzierst du im letzten Durchlauf der Schleife einen Index, den es gar nicht gibt, und das führt zu einer Zugriffsverletzung.