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:

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

[nailor]

der erste code klappt nicht, weil man eine FOR-Variable nicht schreiben darf. das zweite klappt prinizpiell, allerdings musst du da:

Delphi-Quellcode:

for i:= j to length(vza) do begin 
if vza[j+i]= 1 [...]

noch was ändern, da "vza[j+i]" ausßerhalb des arrays liegen kann, und du eine AcessViolation erhältst. zusätzlich musst du nachdem du intervallend gesetzt hast die schleife noch verlassen, damit nicht weitergesucht wird. stichwort: "break;"

[Hansa]

Was für ein Intervall ? Timer ?

Der Hauptfehler ist aber, daß j als Schleifenzähler doppelt benutzt wird. Nehme doch einfach j1 und j2 in der Deklaration.

[axelf98]

Man darf FOR-Schleifen-Variablen nicht in der Schleife verändern.

Mach es mit einer While-Schleife:

Delphi-Quellcode:

 var j: integer;
begin

 While j <= length(vza) do
 begin
  if XXXX then
  inc(j);  // -> j := j + 1 als deine Veränderung der Zählvariable
  inc(j);  // -> j := j + 1 als Zählung
 end;

[mischerr]

Hallo

also wenn ich das richtig sehen, dann kannst du bei a.) die Schleifenvariable nicht manuell setzen. Versuche hier repeat/until oder while! Zu b.) gibt es kein Abbruchkriterium für die Schleife. Diese würde also wohl bis zum letzten Element laufen. Allerdings gibt es da ein Problem:

Code:

for i:= j to length(vza) do begin
if vza[j+i]= 1 then intervallend := j+i;
end;

vza[j+i] kann die Grenzen des Arrays sprengen und überspringt Zeichen. Die for Schleife sollte besser lauten:

Code:

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

Grüsse!

[nailor]

Delphi-Quellcode:

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;
          end;