Access Violation mit einfach verketteter Liste

**Hybrid666**

Moin,

ich habe folgende Struktur meiner Daten:

Delphi-Quellcode:

			  PCommandList = ^TCommandList;

  TCommandList = record

    InputName : Integer;

    Pressed : Boolean;

    Next : PCommandList;

  end;

  PMakroList = ^TMakroList;

  TMakroList = record

    TimeStamp : Integer;

    Commands : PCommandList;

    Next : PMakroList;

  end;

Im Prinzip soll das einfach eine Einfach verktettete Liste sein (PMakroList), die eine Reihe von Commands enthält (PCommandList), auch als einfach verkettete Liste.

Das Anlegen der Liste funktioniert einwandfrei und ich habe auch eine Routine in meinem Objekt, das die Struktur speichern soll. Dazu habe ich folgenden Code:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TMakro.SaveToFile(FileName : String);

var

  MRef : PMakroList;

  CRef : PCommandList;

  SaveFile : TextFile;

  I : Integer;

begin

  AssignFile (SaveFile, FileName);

  ReWrite (SaveFile);

  WriteLn (SaveFile, 'ÿNAME' + MakroName);

  WriteLn (SaveFile, 'ÿBEGINDESCRIPTION');

  for I := 0 to Description.Count - 1 do

    writeln (SaveFile, Description[I]);

  WriteLn (SaveFile, 'ÿENDDESCRIPTION');

  WriteLn (SaveFile, 'ÿBEGINMAKRO');

  MRef := Makro;

  while Assigned (MRef) do

  begin

    WriteLn (SaveFile, 'T' + IntToStr (MRef.TimeStamp));

    CRef := MRef.Commands;

    while Assigned (CRef) do

    begin

      writeln (SaveFile, IntToStr (CRef.InputName) + '|' + BoolToStr (CRef.Pressed, True));

      CRef := CRef.Next;

    end;

    MRef := MRef.Next;

  end;

  writeln (SaveFile, 'ÿENDMAKRO');

  CloseFile (SaveFile);

end;

(über den stil sowas zu speichern lässt sich streiten, daher bitte keine große diskussion drüber).

Wie man sieht wird einfach eine Textdatei hergenommen, erst diverse Optionen (name, beschreibung) von dem Objekt gespeichert und dann gehts an die List. Eigentlich dachte ich, dass ich genug kontrollabfragen drin hab, sodass ich nie ins leere laufen kann. Es sei noch gesagt, das alle leeren pointer mit "nil" initialisiert werden beim anlegen, damits bei assigned auch keine probleme gibt.

Nun tritt sporadisch (immer mal wieder) an folgender Stelle ein fehler auf:
WriteLn (SaveFile, 'T' + IntToStr (MRef.TimeStamp)) Und zwar ist der fehler eine Access violation. Ich gehe davon aus, das er auf MRef nicht zugreiffen kann. aber wo ist da mein fehler, bzw wo fehlt die kontrolle?

Danke für die Hilfe

Hybrid

Access Violation mit einfach verketteter Liste

Access Violation mit einfach verketteter Liste

Forumregeln