Alle Memos haben gleich viele Zeilen...

[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