Mit savetoFile/loadfromFile Daten ins Formular bringen

[Klaus01]

.. neuer Versuch:

Delphi-Quellcode:

rocedure TForm1.ladenClick(Sender: TObject);
var Names:TName;
begin
  Names:=TName.create;
  try
    FDatalist.LoadFromFile('e:\test\daten.dat');
    Names := FDatalist.Items[0] as TName;
    Edit1.text:=inttostr(Names.ID);
    Edit2.Text:=Names.Name;
    Edit3.text:=Names.Herkunft;
    CheckBox1.Checked:=Names.Geschlecht;
  finally
    FreeAndNil(Names);
  end;
end;

FDataList.Items[0] as TName gibt doch eine Klasseninstanz zurück.
Es sollte daher nicht notwendig sein die Instanz Names noch zusätzlich zu erstellen.

Also so:

Delphi-Quellcode:

procedure TForm1.ladenClick(Sender: TObject);
var Names:TName;
begin
  FDatalist.LoadFromFile('e:\test\daten.dat');
  try
    Names := FDatalist.Items[0] as TName;
    Edit1.text:=inttostr(Names.ID);
    Edit2.Text:=Names.Name;
    Edit3.text:=Names.Herkunft;
    CheckBox1.Checked:=Names.Geschlecht;
  except
    // do error handling
  end;
end;

Grüße
Klaus