Delphi - E2033 실제 및 공식 var 매개 변수 유형이 동일해야합니다.

Question

몇 년 전에 구현 된 프로젝트에서 디버그를 시도하면서 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) : 실제와 공식 VAR 매개 변수의 E2033 유형이 동일해야합니다"그 라인에서 오류가 발생했습니다. 이 코드의 문제점은 무엇입니까?

Answer 1

당신도

var 
... 
    tm: TTextMetric; 
... 

begin 
    ... 

    GetTextMetrics(hDC, tm); 

또는

var 
... 
    tm: TTextMetricA; 
... 

begin 
    ... 

    GetTextMetricsA(hDC, tm); 

첫 번째 버전이 바람직하다 사용해야합니다.