Problem mit While Schleife (immer noch)

**clarity**

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

zusammenfalten · markieren

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

Problem mit While Schleife (immer noch)

Problem mit While Schleife (immer noch)

Forumregeln