unit HiAsmUnit;

interface

uses kol,Share,Debug,FPCVariants;

type
 THiAsmClass = class(TDebug)
   private

   public

 end;
 

implementation

var
  v,v2: Variant;
  i: integer;
  d: Double;
  dt: TData;
  s: string;
begin
  v := 10.45;
  v2 := 20.05;
  i := Integer(v);
  d := Double(v2);
  dtReal(dt,d);
    
  _Debug(i);  // 10
  _Debug(dt); // 20.05
  
  //v := v + v2; runtime error
  v := Double(v) + Double(v2); 
  
  s := 'demo str var result = ' + string(v);
  _Debug(s);  // demo str var result = 30.5
   
end.