in repeatschleife zum anfang der schleife springen

[MikeS]

Zitat:

repeat
dec(dateproof);
if DataSet[dateproof] = DataSet[datenumber] then
//wenn dateproof = datenumber dann repeat von vorne
until dateproof = 0;

versuche es doch mal so

Delphi-Quellcode:

repeat
  dec(dateproof);
until(DataSet[dateproof] = DataSet[datenumber]);

dann wird die schleife beendet und du fängst in der anderen wieder an.