Datenspeicherung

[ggfan]

Das geht in der Regel mit der Eigensachft SaveToFile

edit1.SaveToFile('c:\test.dat') Noch eine Frage zu oben: ich habe das jetzt so gemacht wie sharky es beschrieben hat:

Delphi-Quellcode:

type Tappointments = Record
                       ID : Integer;
                       DateOFAppoint : Real;
                       BeginOFAppoint : String;
                       EndOFAppoint : String;
                       Place : String;
                       Title : String;
                       details : string;
                     end;

var appointments: Array[1 .. 1000] of Tappointments;

procedure Tfrmmain.mnusaveClick(Sender: TObject);
var
   SaveAppointments : File of Tappointments;
   ndx : Integer;
begin
   AssignFile(SaveAppointments,'test.dat');
   Rewrite (SaveAppointments);
   for ndx := Low (appointments) to High (appointments) do
   begin
     Write (SaveAppointments, appointments[ndx]);
   end;
   CloseFile (Saveappointments);
end;

Doch dann kommt die Meldung: 'Tappointments benötigt Finalization'