QWord und DateTime

[FXMaveric]

Hallo,

ich habe ein Datei-Datum aus TVersionInfo resp. TVersionResource, welches als QWord vorliegt.
Wie bekomme ich da ein TDateTime herraus?

Hat jemand eine Idee?

Gruß
FX

[HOffen]

Ist ein Griff ins Blaue, aber vielleicht funktioniert's mit einem Type-Cast, also etwa so:

Code: Alles auswählen

var
  MyDate: TDateTime;
  TheirDate: QWord;
begin
  MyDate := TDateTime(TheirDate);
end;

Gibt's denn in der Unit, in der TDateTime definiert ist, keine Converter-Funktionen?

[FXMaveric]

Hallo,

nein so leicht ist es nicht.
Die unit ist die versionresource.pas von fpc, und ich finde weder dort noch im Inet Infos darüber.
Ich lese darüber die Versionsnummer, etc. (und nun auch das Build-Datum) aus.
Gecastet habe ich schon auf alles, was mit "T" beginnt, ledier ohne Erfolg.
Auch TTimeStamp und Konsorten funktionieren nicht.

Aber trotzdem Danke.

[Socke]

Vermutlich benötigst du die Funktion SysUtils.FileDateToDateTime();. Kannst du eventuell deinen Quelltext posten, weil bei mir (fpc 2.6.0) sind alle Listen leer, wenn ich TVersionResource instantiiere.

[theo]

Vermutlich benötigst du die Funktion SysUtils.FileDateToDateTime();.

Nö, hatte ich schon versucht. Nimmt ja auch kein QWord entgegen.

Kannst du eventuell deinen Quelltext posten, weil bei mir (fpc 2.6.0) sind alle Listen leer, wenn ich TVersionResource instantiiere.

http://www.lazarus.freepascal.org/index ... ic=12435.0" onclick="window.open(this.href);return false;