以下為一些常用 function 的例子:
代碼: 選擇全部
procedure Tform1.Button1Click(Sender: TObject);
var
a: Variant;
b: double;
begin
a := VarComplexCreate(1,1); // 1+1i
//a := VarComplexExp(a); // e^a
a := VarComplexExp(VarComplexCreate(0,2)); // e^2i
a.Real := 0.1;
b := VarComplexAbs(a);
showmessage(a.Real);
showmessage(floattostr(b));
end;