Ich probiere mal wieder und komme nicht weiter. Ich bin relativ unbedarft auf dieser Strecke.
Die
unit von Taladan habe ich im Forum gefunden:
https://www.delphipraxis.net/47970-t...speichern.html
Dazu habe ich für die dort def. Felder (ID,Name,Herkunft,Geschlecht) auf meiner Formular-
unit entsprechende
edit-Komponenten eingerichtet.
mit den Methoden savetofile/loadfromFile möchte ich also eingegebene Daten nach z.B e:\test\daten.dat speichern und
von dort dann mit loadfromfile wieder ins Formular aufnehmen. Sicher wohl eine ganz einfache Art und Weise, doch es
klappt einfach nicht.
Beim savetoFile kommt ein Datensatz an und wird gespeichert. Weitere Datensätze werden nicht gespeichert.
Beim Aufruf loadfromFile erhalte ich lediglich den Wert für die ID mit 0. Die anderen Felder werden nicht gefüllt.
Wo klemmt es da bei mir? anbei meine stümperhaften Versuche:
Delphi-Quellcode:
procedure TForm1.speichernClick(Sender: TObject);
var FileN :string;
begin
Name:=TName.create;
Name.ID:=strtoint(Edit1.text);
Name.Name:=edit2.text;
Name.Herkunft:=Edit3.text;
Name.Geschlecht:= true; //checkBox1.Checked;
objectlist.Add(Name);
objectlist.SaveToFile('e:\Test\daten.dat');
init;
end;
procedure TForm1.ladenClick(Sender: TObject);
var FileN:string;
begin
objectlist.LoadFromFile('e:\test\daten.dat');
Edit1.text:=inttostr(Name.ID);
Edit2.Text:=Name.Name;
Edit3.text:=Name.Herkunft;
CheckBox1.Checked:=Name.Geschlecht;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Name:=TName.Create;
Objectlist:=TMyObjectList.create;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Name.free;
objectlist.Free;
end;