Zeit aus ini zurück

[SaFu]

So

Delphi-Quellcode:

procedure TForm2.DateTimePicker1Change(Sender: TObject);
begin
 Einstellungen:= ExtractFilePath(ParamStr(0))+ 'Einstellungen\Settings.ini';
  begin
   with TMemIniFile.Create(Einstellungen) do
    try
      WriteFloat(EinstellungenINI,Uhrzeitloeschen,DateTimePicker1.Time); // Wert in die ini datei schreiben
      UpdateFile;
    finally
      Free;
  end;
 end;
end;


procedure TForm2.FormShow(Sender: TObject);
 Einstellungen:= ExtractFilePath(ParamStr(0))+ 'Einstellungen\Settings.ini';
  begin
   with TMemIniFile.Create(Einstellungen) do
    try
     dUhrzeit:= ReadFloat(EinstellungenINI,Uhrzeitloeschen,0);
     DateTimePicker1.Time:= ReadFloat(EinstellungenINI,Uhrzeitloeschen,0);
     finally
    Free;
    end;
  end;
end;