Problem mit Assignment im For-loop

**clarity**

Hi Leute,

Also, bin ziemlich neu in delphi und hab ein Problem mit nem loop

:
Zum Problem:
ich hab nen array mit n werten , die entweder '0' oder '1' sind. will jetzt die Intervalle zwischen den einzelnen Einsen ermitteln hab mir das so gedacht:

markieren

Delphi-Quellcode:

			 
for j:= 0 to length(vza) do begin

if vza[j] = 1 then begin

intervallanf := j  ;

for i:= j to length(vza) do begin

if vza[j+i]= 1 then intervallend := j+i;

end;

j := j+i

end;

wie die letzte Zeile zeigt, will ich dann vom jeweiligen intervallende weiterzählen, um das nächste Intervall zu ermitteln.

bei j := j+i gibt er mir die fehlermeldung

Zitat:

Assignment to FOR-Loop 'j'

Krieg das einfach nicht hin

ach so.. andere Frage.. würde die schleife

markieren

Delphi-Quellcode:

			 if vza[j] = 1 then begin

intervallanf := j  ;

for i:= j to length(vza) do begin

if vza[j+i]= 1 then intervallend := j+i;

Bei der ersten eins enden oder des Intervallend erst bei der letzten Eins gesetzt werden ??

THX

Problem mit Assignment im For-loop

Problem mit Assignment im For-loop

Forumregeln