Recompilar de Delphi 3 a Delphi 5
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. |
Fíjate si no se esta redefiniendo el tipo HWND en alguna unit, o simplemente defínelo como:
Saludos! |
Muchas gracias he redefinido la variable como lo has indicado y todo parace bien.
Saludos |
La franja horaria es GMT +2. Ahora son las 20:13:20. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi