Variable Records speichern

[sofl]

Speichern

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var
  meinedatei: File of TCDArchiv;
begin 
  AssignFile(meinedatei, 'test.dat');
  ReWrite(meinedatei);

  Archiv.Album:=Edit_Band.Text; 
  Archiv.Titel:=Edit_Titel.Text; 
  Archiv.Songs:=Memo_Songs.Text; 
  
  Write(meinedatei,Archiv);
  
  CloseFile(meinedatei);
end;

Laden

Delphi-Quellcode:

FileMode := fmOpenRead;
Reset(meinedatei);
 
while not Eof(meinedatei) do
   begin
     Read(meinedatei, Archiv);
     ShowMessage(Archiv.Album+' '+Archiv.Band+' '+Archiv.Songs);
   end;
CloseFile(meinedatei);

Habs nich getestet aber so müsstes funzen.

Zusätzlich kannst du dir ja das mal anschauen

mfg sofl