Delphi Fehler: I/O Fehler 998

Question

Ich bin neu in Delphi und Programmierung im Allgemeinen. Ich habe ein Problem, dass, wenn ich die folgende DLL-Prozedur kompiliere und laufe, ich einen I/O-Fehler 998 bekomme. Könntest du bitte darauf hinweisen, was ich falsch mache, während ich die geringste Menge von Änderungen an meinem Code mache? Soweit ich das beurteilen kann, muss es ein Problem mit der Art sein, wie ich meine Dateien handhabe.

Die Idee dieses Verfahrens, um Daten von der VCL-Anwendung mit der DLL zu akzeptieren, speichern Sie es in einen Datensatz und speichern Sie den Datensatz dann in eine DAT-Datei.

type 
    plist = ^game; 
    tdata = record 
    nazwa: shortstring; 
    wydawca: shortstring; 
    rokwyd: shortstring; 
    gatunek1: shortstring; 
    gatunek2: shortstring; 
    end; 
    game = record 
    data: tdata; 
    pointer: plist; 
    end; 

{$R *.res} 

procedure DodajElement (var field1, field2, field3, field4, field5 : shortstring); stdcall; 
var 
    BazaDanych : file of game; 
    first, current: plist; 
begin 
    AssignFile(BazaDanych, 'BazaDanychGier.dat'); 
    if not FileExists('BazaDanychGier.dat') then 
    begin 
     new(first); 
     first^.data.nazwa := field1; 
     first^.data.wydawca := field2; 
     first^.data.rokwyd := field3; 
     first^.data.gatunek1 := field4; 
     first^.data.gatunek2 := field5; 
     first^.pointer := nil; 
     Rewrite(BazaDanych); 
     Write(BazaDanych, first^); 
     CloseFile(BazaDanych); 
    end 
    else 
    begin 
     Reset(BazaDanych); 
     Read(BazaDanych, first^); 
     CloseFile(BazaDanych); 
     current := first; 
     new(first); 
     first^.data.nazwa := field1; 
     first^.data.wydawca := field2; 
     first^.data.rokwyd := field3; 
     first^.data.gatunek1 := field4; 
     first^.data.gatunek2 := field5; 
     first^.pointer := current; 
     Rewrite(BazaDanych); 
     Write(BazaDanych, first^); 
     CloseFile(BazaDanych); 
    end; 
end; 

Entschuldigung für die fremden Variablennamen.

Answer 1

Es ist mir nicht klar, warum Sie Zeiger auf einen Datensatz verwenden (erster ^), wenn Sie den Datensatz selbst genauso einfach verwenden könnten.

Du dereferencing einen unitialised Zeiger hier

Read(BazaDanych, first^);