Hi
Warum benutzt du nicht die Repeat oder While -Schleife. Diese sind dafür ausgelegt, auch früher abgebrochen zu werden...
Delphi-Quellcode:
.....
I:=0; // i vorbesetzen
Repeat // Schleife wird mindestens 1mal durchlaufen
.....yourCode....
Inc(i); // oder anders i:=i+1;
Until (i = Zielwert) or Abbruchbedingung; // bis hierher und nicht weiter
.....
oder die andere Variante
Delphi-Quellcode:
......
i:=0; // i vorbesetzen
While (i<=Zielwert) and Not Abbruchbedingung do // Schleife kann umgangen werden
Begin // da Abbruchbedingung am Anfang steht
........ YourCode ........
Inc(i); // oder wieder i:=i+1;
end; // bis hierher und nicht weiter
......
Noch ist mein Rechner mir zu Diensten.... ansonsten habe ich die Macht ihn zu vernichten !