Alle Memos haben gleich viele Zeilen...

[Nikolas]

Da war noch das Problem das aus '<=' ein '<' gemacht werden muss.

[Stanlay Hanks]

Dann lies mal meinen vorletzten Beitrag

Edit: Ich rieche einen Bug...Ich habe schon wieder kein rotes Erinnerungskästchen gekriegt

[TheMiller]

Ich habe jetzt diesen Code:

Delphi-Quellcode:

  while memo1.lines.count<memo2.lines.count do
  memo1.lines.add('');

Ich schreibe eine Zeile in Memo2 und habe 2 Zeilen in Memo1... Ja...ein Bug... Aber wo? Ich weiß es einfach nicht

[Sharky]

Kann ich einfach nicht bestätigen.

Wenn ich in Memo2 eine Zeile schreibe kommt mit diesem Code auch nur eine Zeil ins Memo1.
Wichtig ist natürlich das Du nach deiner ersten Zeile in Memo2 nicht Enter drückst. Aber das ist ja wohl auch logisch.

[TheMiller]

Ich teste es nochmal, kann sein, dass ich mist gebaut habe.

Werde mich melden!

[Muetze1]

Moin!

Grundlegend ist ja auch die Frage, auf welches Memo die denn angepasst werden sollen? Es muss ja ein Memo geben welches die Anzahl der Zeilen vorgibt - entweder das mit den meisten Zeilen oder immer das 1. Memo oder was auch immer...

Und ich meinte vorhin: wenn du eine Repeat Until Schleife benutzt, die ja fussgesteuert ist, musst du vorher abprüfen, ob du wirklich diese ausführen musst - weil das hinzufügen wird bei einer fussgesteuerten Schleife immer ausgeführt wird und danach erst abgeprüft wird.

Und nun noch ein Beispiel, wenn das längste Memo ausschlaggebend ist:

Delphi-Quellcode:

Var
  lMaxCount : Integer;
Begin
  lMaxCount := Max(Memo1.Lines.Count, Max(Memo2.Lines.Count, Memo3.Lines.Count));

  While ( Memo1.Lines.Count < lMaxCount ) Do
    Memo1.Lines.Add('');

  While ( Memo2.Lines.Count < lMaxCount ) Do
    Memo2.Lines.Add('');

  While ( Memo3.Lines.Count < lMaxCount ) Do
    Memo3.Lines.Add('');
End;

MfG
Muetze1