[Theophile2286]

Hola:

Actualmente estoy recomiplando un paquete desarrollado en Delphi 3 a Delphi 5.

Cada vez que lo intento hacer se presenta el siguiente mensaje de error:
"Types of actual and formal var parameters must be identical"

El código que genera este error es el siguiente (resalté en rojo la línea que genera el errór):

------------------------------------------------------------
function AEdit.WidthToCharWidth( value : Integer ) : Integer;
var
LocalCanvas : TCanvas;
hdl : HWND;
nOffset : integer;
begin
result := Width;
LocalCanvas := TCanvas.create;
try
hdl := Handle;
LocalCanvas.handle := GetDeviceContext( hdl );
LocalCanvas.Font := inherited Font;
nOffset := 2;
if inherited Ctl3D then nOffset := nOffset + 4
else nOffset := nOffset + 2;
inc( nOffset, OFFSET_FONT_EF );
result := ( value - nOffset ) div ( LocalCanvas.TextWidth( '0' ) - 1 );
finally
LocalCanvas.handle := 0;
LocalCanvas.free;
end;
end;
------------------------------------------------------------
He revisado la ayuda de Delphi junto al ejemplo propuesto y todo parece bien.

Igualmente he copiado este codigo en una forma sobre Delphi 5 y funciona sin problemas.

Algúna idea?

Gracias de antemano.