Datenspeicherung

[Sharky]

Hai blacky35,

Du könntest es mit Typisierten Dateien versuchen.

Delphi-Quellcode:

type
 TmyRecord =  record
               var1 : Integer;
               var2 : String[50];
             end;

procedure TForm1.Button1Click(Sender: TObject);
var
   myRecords : Array [1..10] of TmyRecord;
   myfile : File of TmyRecord;
   ndx : Integer;
begin
   AssignFile(myfile,'test.dat');
   Rewrite (myFile);
   for ndx := Low (myRecords) to High (myRecords) do
   begin
     Write (myfile,myRecords[ndx]);
   end;
   CloseFile (myfile);
end;