Hallo!
Kann es sein, dass das TimeFormat von TFormatSettings (also ShotTimeFormat und LongTimeFormat) keine Doppelpunkt aufnehmen will?
Ich habe folgenden Code:
Delphi-Quellcode:
function TFormMain.GetUserTimeFormat: TFormatSettings;
begin
Result.LongDateFormat := EditDateFormat.Text;
Result.ShortDateFormat := EditDateFormat.Text;
Result.LongTimeFormat := EditTimeFormat.Text;
Result.ShortTimeFormat := EditTimeFormat.Text;
end;
procedure TFormMain.ButtonUnixToSystemClick(Sender: TObject);
var
UnixTime: Int64;
begin
if TryStrToInt64(EditUnixTime.Text, UnixTime) then
begin
EditSystemTime.Text := DateTimeToStr(UnixToDateTime(UnixTime), GetUserTimeFormat);
end;
end;
Wen im EditTimeFormat 'hh:mm:ss' eingetragen ist, so wird nur die Stunde ausgegeben. Trägt man aber 'hh.mm.ss' oder 'hh-mm-ss' ein, so funktionierts einwandfrei.
Woran liegt das? Wie kann ich das beheben?
Grüße
Faux