Ver Mensaje Individual
  #9  
Antiguo 12-08-2011
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.806
Reputación: 22
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
No es la opción más elegante, pero seguramente funciona:
Pone SizeInt = integer; justo antes de la definicion de PSizeInt.

Código Delphi [-]
{$ IFDEF CPU32} // Aquí supongo que no entra porque de lo contrario SizeInt estaría definido
SizeInt = Integer;
{$ENDIF CPU32}
{$ IFDEF CPU64} // Aquí tampoco entra 
SizeInt = Int64;
SizeInt = Integer; // Como no se definió anteriormente, lo defino a la fuerza
{$ENDIF CPU64}
FSizeInt = ^SizeInt;

Nota: Este código va a fallar si se define CPU32 o CPU64, pero servirá para probar.

Supongo que habría que hacer algo así:
Código Delphi [-]
{$IFDEF CPU32}
   SinzeInt=Integer;
{$ELSE}
   {$IFDEF CPU64}
      SizeInt=Int64;
   {$ELSE}
      SizeInt=Integer;
   {$ENDIF}
Pero no conozco la sintaxis de las directivas de compilación.
Responder Con Cita