C++ DateTime in Delphi TDateTime umwandeln.

[nicodex]

Ansonsten halt manuell:

Delphi-Quellcode:

function WebKitTimeToStr(AWebKitTime: TWebKitTime): string;
const
  MaxWebKitTimeStrLength = Length('18446744073709551615');
  DecimalToCharacter: array [0..9] of Char = '0123456789';
var
  Index: Integer;
begin
  SetLength(Result, MaxWebKitTimeStrLength);
  for Index := MaxWebKitTimeStrLength downto 1 do
  begin
    Result[Index] := DecimalToCharacter[AWebKitTime mod 10];
    AWebKitTime := AWebKitTime div 10;
    if AWebKitTime = 0 then
    begin
      Delete(Result, 1, Index - 1);
      Break;
    end;
  end;
end;