Mh das hab ich doch. Glaub ich zumindest.
Deswegen hier der komplette Code:
Delphi-Quellcode:
var
Form4: TForm4;
ini: Tinifile;
Speicherung1 : string;
Spdate1 : TDate;
implementation
{$R *.dfm}
procedure TForm4.FormShow(Sender: TObject);
begin
ini := Tinifile.create ('F:\Delphi\BMI\inispeicher.ini');
try
Speicherung1 := ini.ReadString('BMI-Wert1','Speicherung 1','');
Spdate1 := ini.ReadDate('Datum1','Spdate 1',date);
Label1.Caption := ((Speicherung1));
Label2.Caption := ((SpDate1));
finally
ini.Free;
end;
end;
end.