Delphi/Lazarus: Convertir Variable Variant a Integer

La forma más fácil es definir una variable Integer y establecer esta variable al valor de la variable Variant:

var
  v: variant;
  i: integer;
begin
  v := 1;
  i := v;

  v := '1';
  i := v;
end;

Esto es incluso posible en el caso de que el valor Variant realmente es del tipo String (cadena).

Si de todos modos desea verificar el tipo antes, puede usar la función VarType para eso:

var
  v: variant;
  i: integer;
begin
  v := 1;
  
  if VarType(v) = varinteger then i := v;
end; 

VarType devuelve el tipo del variable Variant. Tenga en cuenta: Hay también otros tipos de números en lugar de Integers, por lo que también puede verificar "if (VarType(v) in [varinteger, varsmallint, varshortint, varbyte, varsingle, vardouble, varword, varlongword, varint64, varqword]) then begin..." u otra lista de tipos para asegurarse de que no se pierda ningún tipo de número.
30/11/2022 a las 10:23

Quizás mi manera es un poco inconveniente, pero debería cubrir todos los casos posibles (por ejemplo, el caso de que el tipo de Variant no es un Integer).

var
  v: variant;
  i: integer;
begin
  v := 1;
   
  i := StrToIntDef(Trim(VarToStr(v)), 0);
end; 

En este código, primero, convertimos la variable Variant en una String usando VarToStr, luego, eliminamos el whitespace (espacios, saltops de línea y así sucesivamente) de la String usando la función Trim y después de eso usamos StrToIntDef para intentar convertir el String en un Integer.

El segundo parámetro de StrToIntDef (aquí 0) es el valor predeterminado. Este valor se devuelve si no es posible convertir la cadena (string) pasada en un entero (integer).
01/12/2022 a las 17:03