Alle Memos haben gleich viele Zeilen...

[TheMiller]

Hi,

ich habe ein Problem. Ich versuche mit Hilfe einer repeat-Schleife allen 3 Memos die gleiche Anzahl an Zeilen zu geben. Diese sieht so aus:

Delphi-Quellcode:

  repeat
   Memo1.Lines.Add('') until
   Memo1.Lines.Count=Memo2.Lines.Count;

Doch wenn ich diese Benutze, fügt das Programm tausende Zeilen ein und hängt sich auf...

Wie kann ich das realisieren, dass alle Memos gleich viele Zeilen haben?

Danke im Voraus

[Muetze1]

Moin!

Du darfst diese Schleife auch nur loslassen, wenn Memo2.Lines.Count auch wirklich grösser als Memo1.Lines.Count ist - ansonsten läuft er unendlich (bzw. bis andere Grenzen auftreten).

MfG
Muetze1

[TheMiller]

Nein, die sollen ja gleich groß sein... Wieso soll ich sie erst dann loslassen, wenn memo1 > als Memo2 ist?

[Stanlay Hanks]

Weil, wenn Memo1.Lines.Count größer ist, als Memo2.Lines.Count, die Wahrscheinlichkeit, dass Memo1.Lines.Count durch Hinzufügen von neuen Zeilen kleiner wird, verschwindend gering ist Dann gehst du nämlich nach dem Motto: "Mist, schon wieder ein Stück abgeschnitten und immer noch zu kurz".

Delphi-Quellcode:

while Memo1.Lines.Count < Memo2.Lines.Count do
  begin
    Memo1.Lines.Add('');
  end;

Man liest sich, Stanlay

Edit: Beim Editieren sollte auch diese "Es gibt neue Beiträge" Nachricht kommen.

[Nikolas]

Die Mütze hat gemeinst, dass du zuerst überprüfen musst, ob memo1 wirklich kleiner als memo2 ist.

Schreibs eher so:

Delphi-Quellcode:

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

Da kann nichts passieren, wenn memo1 schon größer als memo2 ist.

[TheMiller]

Sorry, stehe grad ein bissl auf dem Schlauch. Also einfach aus dem = ein > machen?

[Stanlay Hanks]

Zitat von Toxman:

Die Mütze hat gemeinst, dass du zuerst überprüfen musst, ob memo1 wirklich kleiner als memo2 ist.

Schreibs eher so:

Delphi-Quellcode:

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

Da kann nichts passieren, wenn memo1 schon größer als memo2 ist.

das = Zeichen muss er weglassen, sonst hat er nach der Schleife in Memo1 eine Zeile zu viel

[TheMiller]

Ich habe den Code jetzt bei Memo2 in OnExit geschrieben. Gehe ich wieder in Memo1 zurück, so hat Memo1 3 Zeilen und Memo2 nur 2 Zeilen...

[Stanlay Hanks]

Welchen Code?

[TheMiller]

Diesen:

Delphi-Quellcode:

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