Einzelnen Beitrag anzeigen

Benutzerbild von faux
faux

Registriert seit: 18. Apr 2004
Ort: Linz
2.044 Beiträge
 
Turbo Delphi für Win32
 
#1

TimeFormat von TFormatSettings mit Doppelpunkten

  Alt 8. Sep 2006, 12:49
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
Faux Manuel
Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß.
  Mit Zitat antworten Zitat