Hi leute,
erst mal danke für die vielen Antworten auf mein erstes Problem, aber es tritt trotz der ideen noch ein Problem auf
Hier nochmal das Problem.
Hab den Code jetzt mal so verändert
Delphi-Quellcode:
j:=0 ;
while j>= length(vza) do begin
if vza[j] = 1 then
begin
intervallanf := j;
for i:= j to length(vza) - j do
begin
if vza[j+i] = 1 then
begin
intervallend := j+i;
break;
j:= intervallend;
end;
end;
end;
if vza[j] = 0 then inc(j);
end;
des funzt aber nicht
. Das Programm läuft an, aber das PG "friert" dann ein,
es läuft nichts mehr. Kann es sein, das die Schleife überfordert ist ??
Der array vza hat etwa eine Länge von 10000
THX