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