Forum > General
Problem converting for Delphi code for dealing with 64bit file dates
(1/1)
vfclists:
This is a follow up to http://forum.lazarus.freepascal.org/index.php/topic,8902.0.html.
The TULargeInteger used by Lazarus does not appear to support the record members for the LowPart and HighPart. What are the Lazarus equivalents?
--- Code: ---function TVersionInfo.GetFileDate: int64;
var
LargeInteger: TULargeInteger;
begin
if (Valid) and (FFileInfo <> nil) then
begin
LargeInteger.LowPart := FFileInfo.dwFileDateLS;
LargeInteger.HighPart := FFileInfo.dwFileDateMS;
Result := LargeInteger.QuadPart;
end else
Result := 0;
end;
--- End code ---
marcov:
(I don't see the relation to the other report?)
Anyway, it is hard to reproduce without a complete compilable program (preferably a simple console app without lazarus dependancies) to reproduce.
vfclists:
It is another part of the same unit and I have attached the project here.
I haven't gotten round to doing console only apps yet, the form is the application default form.
--- Quote from: marcov on March 14, 2010, 10:18:15 pm ---(I don't see the relation to the other report?)
Anyway, it is hard to reproduce without a complete compilable program (preferably a simple console app without lazarus dependancies) to reproduce.
--- End quote ---
marcov:
(T)ULARGE_INTEGER has been changed to the native 64-bit type QWORD (unsigned 64-bit). I assume to fix a different kind of usage in headers. (but it is there since SVN rev 1).
"LARGE_INTEGER" still works with lowpart and highpart.
Navigation
[0] Message Index