Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Aktuelle Zeit + Stunden/Minuten/Sekunden addieren


NOS - Mo 04.10.10 23:18
Titel: Aktuelle Zeit + Stunden/Minuten/Sekunden addieren
Hallo zusammen,

ich versuche grad zum aktuelle Datum / Uhrzeit .... also NOW .... einen definierten Zeitrahmen von hhh:nn:ss zu addieren ..... das ganze soll so funktionieren


Delphi-Quelltext
1:
2:
3:
4:
5:
   GetLocaleFormatSettings(GetUserDefaultLCID, TempFormatSettings);
   TempFormatSettings.ShortTimeFormat := 'hhh:nn:ss';
   TempFormatSettings.TimeSeparator := ':';
   TempItem.Captions[1] := 'Grow time: ' + PPlantListItem(AppSettings.PlantsList[i]).Wachstumszeit;
   TempItem.Captions[2] := 'Harvest time: ' + DateTimeToStr(Now + StrToTime(PPlantListItem(AppSettings.PlantsList[i]).Wachstumszeit),TempFormatSettings);


Leider funktioniert das nicht und ich bekomme immer die meldung dass dieses format keine uhrzeit ist .... was kann ich tun ?

LG und Danke,

Andreas


elundril - Di 05.10.10 02:24

is wachstumszeit wirklich als Zeit definiert? Oder fehlt da vielleicht die Stunden oder so? Außerdem würde ich Wachstumszeit vl eher als DateTime bzw als Integer speichern und einfach nur bei anzeigen dann in String umwandeln. Da tut man sich dann auch leichter mit dem Rechnen. ;)

lg elundril