delphi - delphi 10.2 Tokyo 中使用 TULargeInteger 进行转换与以前的版本不同

Question

使用 TULargeInteger 进行转换，新编译器 10.2 缺少属性 LowPart 和 HighPart。

uses Winapi.Windows;

    function RetLargeInt: Int64;
    var
      ALow: DWORD;

    begin
      {Do Something
        With ALow
      }
      TULargeInteger(Result).LowPart := ALow; {Missing 'LowPart'}
    end;

    procedure AProc;
    var
     ALocalInt: Int64;
    begin
      ALocalInt := RetLargeInt;
      {Do Something}
    end;

Answer 1

在 10.2 Tokyo 中，TULargeInteger 的声明已更改为:

TULargeInteger = ULARGE_INTEGER;

至:

TULargeInteger = UInt64;

这意味着您无法再访问公开 LowPart 的 ULARGE_INTEGER 记录字段。

ULARGE_INTEGER = record
    case Integer of
    0: (
      LowPart: DWORD;
      HighPart: DWORD);
    1: (
      QuadPart: ULONGLONG);
  end;

<小时/>

您可以更改代码以使用 ULARGE_INTEGER 代替:

ULARGE_INTEGER(Result).LowPart := ALow;