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