Mal ein Beispiel zur Konvertierung und Festlegung eines eigenen Formats:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var s: string;
sep: char;
dt: TDateTime;
begin
//aktuelle Uhrzeit in einem String speichern
s := FormatDateTime('HH#mm',now);
//und ausgeben
ShowMessage(s);
//alten Timeseparator sichern
sep := TimeSeparator;
//und neu setzen
TimeSeparator := '#';
//String in TTime konvertieren
dt := StrToTime(s);
//alten Timeseparator wiederherstellen
TimeSeparator := sep;
//und TTime formatiert ausgeben
ShowMessage(FormatDateTime('HH:mm',dt));
end;
Zitat:
DateTimePicker1.Time:= ReadString(EinstellungenIni,Uhrzeit,(StrToTime(0)));
Eher so:
DateTimePicker1.Time:= StrToTime(ReadString(EinstellungenIni,Uhrzeit,0));