Mit savetoFile/loadfromFile Daten ins Formular bringen

[HolgerX]

Hmm..

Zitat von EdAdvokat:

Delphi-Quellcode:

procedure TForm1.speichernClick(Sender: TObject);
var FileN :string;
begin
  Name:=TName.create;  // NEUES Name-Object wird erstellt
  Name.ID:=strtoint(Edit1.text); // .. befüllt
  Name.Name:=edit2.text;  // .. befüllt
  Name.Herkunft:=Edit3.text; // .. befüllt
  Name.Geschlecht:= true;  //checkBox1.Checked;   // .. befüllt
  objectlist.Add(Name);  // Der Liste hinzugefügt
  objectlist.SaveToFile('e:\Test\daten.dat'); // LISTE wird gespeichert
  init;
end;

procedure TForm1.ladenClick(Sender: TObject);
var FileN:string;
begin
  objectlist.LoadFromFile('e:\test\daten.dat');  // LISTE wird geladen
  Edit1.text:=inttostr(Name.ID); // auf 'globales' NAME (nicht aus der Liste) wird zugegriffen
  Edit2.Text:=Name.Name;
  Edit3.text:=Name.Herkunft;
  CheckBox1.Checked:=Name.Geschlecht;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Name:=TName.Create;  // Globales NAMES wird erzeugt
  Objectlist:=TMyObjectList.create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Name.free;
  objectlist.Free;
end;

Typisches Copy&Paste ..

Wenn du mit der Liste laden willst, dann solltest Du auch mit NAME aus der 'Liste' arbeiten.
Lösche zunächst erstmal dein globales NAME aus dem src...
und hole dieses beim Laden aus der objectlist..