Invalid TypeCast

[Enan0]

Hola, extoy teniendo un pequeño problema con esta linea de codigo..
luego del "VsiNgle", en el momento de compilar me da un error
INVALID TYPECAST.. la verdad es que no se porque lo da.. esta es la linea en cuestion..

Código Delphi [-]
      result := 'varSingle ' + IntToHex(Longint(TVarData(v).VSingle), 8);

[marcoszorrilla]

Todo apunta a que el moldeado de datos no tiene éxito ya que la función IntToHex expera únicamente un entero y el número de digitos que devolverá en la conversión.

Prueba a hacer la conversión antes de pasarle el valor.

Esto funciona sin problemas:

Código Delphi [-]
 Function LoQueSea(n:Integer):String;
 begin
  result := 'varSingle ' + IntToHex(n, 8);
 end;
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 ShowMessage(LoQueSea(256));
 end;

Un Saludo.

[Enan0]

Gracias!!!

[roman]

¿Qué pretendes hacer con ésto?

Longint(TVarData(v).VSingle)

TVarData(v).VSingle será un número real. No puedes moldearlo a un entero. Si lo que deseas es omitir los decimales entonces usa Trunc.

// Saludos