Zitat von
ggfan:
Das geht in der Regel mit der Eigensachft SaveToFile
edit1.SaveToFile('c:\test.dat')
Aber eine TEdit-Komponente hat doch gar kein SaveToFile. Das gibts nur bei Memo, TRichEdit, ...
Zitat von
ggfan:
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'
Das liegt an den Strings. Wenn man die Daten so speichern will, muss man die Länge der Strings in eckigen Klammern dahinter angeben, z.B.:
Delphi-Quellcode:
type Tappointments = Record
ID : Integer;
DateOFAppoint : Real;
BeginOFAppoint : String[50];
EndOFAppoint : String[50];
Place : String[40];
Title : String[20];
details : string[255];
end;
Die Zahlen sind jetzt willkürlich gewählt, es dürfen natürlich auch andere Werte sein. Jedoch muss man beachten, dass das Maximum bei 255 Zeichen liegt.
MfG
Binärbaum