Hi Cristian,
was hältst du davon:
Delphi-Quellcode:
MoreData := Counter < ObjektListe.Count; //sicher stellen das MoreData richtig ist
if MoreData then
begin
While True do
begin
if (ObjektListe[Counter].gueltig) then
break
else begin
if (Counter = ObjektListe.Count) then //sonst kommt der letzte Satz nicht
begin
MoreData := False;
Last := False;
break; //Edit: hatte ich vergessen
end else inc(Counter);
end;
end;
end;
Mfg.
Frank
P.S. Mit "wo der Abbruch ist ?" meinte ich den Fehler.