Problem mit While Schleife (immer noch)

[nailor]

break spring aus ner schleife raus. machst du so:

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;
            // sooooooooooooooooooooo:
            j:= intervallend; 
            break; 
          end; 
      end; 
    end; 
if vza[j] = 0 then inc(j); 
end;