Forum: Programmieren allgemein
by KodeZwerg,
13. Sep 2018
https://www.swissdelphicenter.ch/de/showcode.php?id=1103
Vielleicht hilft Dir dieses Beispiel weiter.
{
This example shows how to use the TListView's CustomSort method to
sort the items in the list using a ordering function.
This allows you to sort custom data in the correct order you want.
When the user clicks on a column header, the ListView will be sorted
by that column.
...
Forum: Programmieren allgemein
by KodeZwerg,
13. Sep 2018
Ja. TimeOf() setzt den internen Datewert dabei auf 0 (irgendwas mit 1899 oder so) und übrig bleibt nur der Zeitanteil.
Forum: Programmieren allgemein
by KodeZwerg,
13. Sep 2018
Ja um so hoch auflösenden Krams ging es hier glaube ich nicht, rein praktikabel.
Da mir bewusst war das es alt ist, hab ich doch von den Schweizern eine gängige standardmethode gepostet.
Oder aus meinem Beitrag oben hehe
Hilft Dir sowas bei Deinem Vorhaben?
uses DateUtils;
Forum: Programmieren allgemein
by KodeZwerg,
12. Sep 2018
So hier in etwa könnte eine Konversion aussehen die himitsu beschreibt:
function FileTimeToDateTime(FileTime: TFileTime): TDateTime;
var
LocalTime: TFileTime;
DOSTime: Integer;
begin
FileTimeToLocalFileTime(FileTime, LocalTime);
FileTimeToDosDateTime(LocalTime, LongRec(DOSTime).Hi, LongRec(DOSTime).Lo);
Result := FileDateToDateTime(DOSTime);
end;