Schleifenvariable ausserhalb der Schleife benutzen

[Bummi]

es steht immer die 11 drin...

[stahli]

Ich hatte das mal getestet:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to Memo1.Lines.Count - 1 do
    Memo2.Lines.Add(Memo1.Lines[I]);
  Memo2.Lines.Add('->' + IntToStr(I));
end;

Wenn Count = 0 ist (also bis -1 bzw. gar nicht gezählt wird) enthält I einen Zufallswert (124567 o.ä.).

Es wäre ja nicht schlecht, wenn der Compiler wenigstens -1 in I schreiben würde, aber da lässt sich natürlich drüber streiten.
Jedenfalls wäre es nicht schädlich und würde weniger Probleme verursachen.