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