Memo Nummerierung

[Foxi1896]

i:=-1;
repeat inc(i,1) until (i>Memo1.Lines.count-1) or (pos(':::',Memo1.Lines[i])>0);

ok ... jetzt geht es aber es gebinnt immernoch bei 10 und nicht 1.

[DeddyH]

repeat-until erwartet eine Bool' sche Abbruchbedingung, will man mehrere davon verknüpfen, müssen diese (sofern sie sich aus einem Vergleich ergeben) einzeln eingeklammert werden.

Delphi-Quellcode:

until a = 1 //funktioniert
until a = 1 and b > 2 //funktioniert nicht
until (a = 1) and (b > 2) //so funktioniert es wieder