Hmm...
und mit
Delphi-Quellcode:
procedure TForm1.speichernClick(Sender: TObject);
var Names: TName;
begin
if FAktuelerIndex > -1
then
Names := FDatalist.Items[FAktuelerIndex]
as TName;
// Aktuelles Object bearbeiten
else
Names:=TName.create;
// Neues Object erstellen
try
// Daten aus Controls holen
Names.ID:=strtoint(Edit1.text);
Names.
Name:=edit2.text;
Names.Herkunft:=Edit3.text;
Names.Geschlecht:=checkBox1.Checked;
if FAktuelerIndex = -1
then begin
FDatalist.Add(Names);
// Nur an die Liste Anhängen, wenn neu
FAktuelerIndex := FDatalist.Count-1;
// Auf den letzten Datensatz setzen
end;
FDatalist.SaveToFile('
e:\Test\daten.dat');
// Speichern
ZeigeDaten;
// Könnte man auch sparen, nur zur Sicherheit ;)
except
on E:
Exception do
ShowMessage(E.
Message);
end;
end;
kannst Du neuen Datensätze anhängen oder eben den gerade gewählten verändert speichern...
(Aus dem Kopf ohne Delphi herunter getippt, also keine Garantie auf Fehlerfreiheit )