Listenindex wird überschritten

[Muetze1]

Moin!

Ich glaube nicht unbedingt das die Schleifen alle richtig laufen, weil ich vermute, dass Anz grösser werden kann als deine Zeigerliste ist - wodran das wiederrum liegt ist eine andere Frage. Aber um meine Vermutung zu bestätigen folgendes:

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var anz, i, index, f, hilf        : integer;
    zaktuell, zaktueller          : tzeiger;
    daten                         : tinhalt;

begin
  IF markiert THEN begin
    anz := -1;
    zaktuell := zliste;
    while zaktuell <> nil do begin
      inc (anz);
      zaktuell := zaktuell^.znaechster;
    end;
    index := 0;

    If ( Anz >= checklistbox2.Items.Count ) Then
      ShowMessage('Wie vermutet: Anz ist grösser als es Elemente in der CheckListBox2 gibt!');

    for i := 0 to anz do
  ....

MfG
Muetze1