Zitat von
clarity:
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;
Wie oft denn noch ? Innerhalb der FOR-Schleife manipulierst du dieselbe. While-Schleife ist kein Allheilmittel. 8)
Wenn ich sage :
Delphi-Quellcode:
i := 1;
while i >= 1 then begin
i := i +1
// Rest
end;
wird das auch Endlosschleife. Jo, das Break tut dann den Rest.