Вверх ↑
Ответов: 5181
Рейтинг: 577
#1: 2022-03-25 21:53:27 ЛС | профиль | цитата
Удалось задействовать варианты в FPC. Но при работе всё же требуется приведения к типам.
Теперь работает такой код
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.
карма: 4
0
Редактировалось 1 раз(а), последний 2022-03-26 09:33:46