Record Array speichern und lesen...Error

**Codix32**

Hallöchen

ich kriegs nicht hin. Möchte ein dynamisches Record Array, das in eine Datei gespeichert ist auslesen und kriege ständig Fehlermeldungen.

Habe die Leseroutine im Internet gefunden und komme insbesonders mit der 'Blockread Procedur' nicht klar.

Die gefundene Routine weißt wohl schon einen Fehler auf, nämlich hier:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure ReadFile(filename:string);

var    fil:    file;

        i:      integer;

        num:    word;     {allows up to 65535 records}

ver:    byte;

   function ReadString:ShortString;

   begin   {ReadString}

     BlockRead(fil,result,1);               {Read the length of the string}

     BlockRead(fil,s[1],length(s));  //<- s ist nirgends declariert  

   end;   {ReadString}

begin   {ReadFile}

...

...

Ich habe versucht , einfach in der Funktion eine Variable vom Typ Shortstring zu erstellen:

markieren

Delphi-Quellcode:

			  function ReadString:ShortString;

   var

   s:string;

   begin   {ReadString}

     BlockRead(fil,result,1);               {Read the length of the string}

     BlockRead(fil,s[1],length(s));         {Read the string itself}

   end;   {ReadString}

Funzt nicht. Was passiert hier eigentlich? Die Blockread Procedure bekommt in der Funktion das Resultat der Funktion übergeben, mein Verstand reicht da nicht mehr hin.

Hier nochmal die ganze Leseroutine:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.ReadFile(filename:string);

var    fil:    file;

        i:      integer;

        num:    byte;     {allows up to 65535 records}

ver:    byte;

   function ReadString:ShortString;

   var

   s:string;

   begin   {ReadString}

     BlockRead(fil,result,1);               {Read the length of the string}

     BlockRead(fil,s[1],length(s));         {Read the string itself}

   end;   {ReadString}

begin   {ReadFile}

   assignFile(fil,filename); reset(fil,1);  {Open the file}

   BlockRead(fil,ver,sizeof(ver));      {Read the file version}

   BlockRead(fil,num,sizeof(num));      {Read the number of records}

   SetLength(VBilArray,num);

   for i:=0 to high(VBilArray) do

       with VBilArray[i] do begin     {Read the data}

         Schuldsum:=ReadString;

         Rate:=ReadString;

         RFaellig:=strtoint(ReadString);

         Abbuchungstag:=ReadString;

       end;   {with}

   CloseFile(fil);

end;   {ReadFile}

Kann mir jemand helfen?

Record Array speichern und lesen...Error

Record Array speichern und lesen...Error

Forumregeln