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:
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