Einzelnen Beitrag anzeigen

HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
969 Beiträge
 
Delphi 6 Professional
 
#15

AW: Mit savetoFile/loadfromFile Daten ins Formular bringen

  Alt 27. Nov 2018, 05:34
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 )
  Mit Zitat antworten Zitat