Einzelnen Beitrag anzeigen

clarity

Registriert seit: 20. Jul 2004
Ort: Radis
15 Beiträge
 
Delphi 6 Personal
 
#1

Problem mit Assignment im For-loop

  Alt 5. Aug 2004, 21:21
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:

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

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
Alex Mensch
  Mit Zitat antworten Zitat