wenn es so aussieht
Delphi-Quellcode:
...
for i:=1 to i+x do
...
for i:=i to i+y do
..
würde ich das so abändern
Delphi-Quellcode:
procedure aa(var gv:integer,..);
var
i : integer;
begin
for i:=gv to gv+x do ...
gv:=gv+x;
end;
procedure bb(var gv:integer,..);
var
i : integer;
begin
for i:=gv to gv+x do ...
gv:=gv+x;
end;
...
aa(i,..);
bb(i,..);
...
Unter Umständen wären Funktionen übersichtlicher...
26907 Zeilen Code in 121 Dateien, wollte den Aufwand so gering wie möglich halten
Dann nutz
repeat..until
oder
while
.
Ist aber nur ein Notnagel.
Gruß
K-H