delphi - Delphi - E2033 实际和正式 var 参数的类型必须相同

Question

我是 Delphi 的新手，试图对多年前实施的项目进行调试。我的 ide 是 Delphi 2010 和有错误的代码；

function DrawTextExW(hDC: HDC; lpString: PWideChar; nCount: Integer; var lpRect:
TRect; uFormat: UINT; dtp: PDRAWTEXTPARAMS): Integer;

const
   MAX_STATIC_BUFFER = 8192;
const
   STATIC_BUFFER_LEN: integer = 8192;
const
   DT_PREFIXONLY = $00200000;

var
...
  tm: TTextMetricA;
...

begin
  ...

  GetTextMetrics(hDC, tm);    //Error Line
  if (uFormat and DT_EXTERNALLEADING) = DT_EXTERNALLEADING then
    lh := tm.tmHeight + tm.tmExternalLeading
  else
    lh := tm.tmHeight;

  ...
end

在该行中出现“[DCC 错误] ElVCLUtils.pas(3555)：E2033 实际和正式 var 参数的类型必须相同”错误。这段代码有什么问题？

Answer 1

你应该使用

var
...
  tm: TTextMetric;
...

begin
  ...

  GetTextMetrics(hDC, tm);

或者

var
...
  tm: TTextMetricA;
...

begin
  ...

  GetTextMetricsA(hDC, tm);

第一个版本更可取。