函数用32汇编写的，求解码delphi

Question

函数
function _ftol: Integer; cdecl;
var
f: double;
begin
asm
lea eax, f
fstp qword ptr [eax]
end;
Result := Trunc(f);
end;

Answer 1

在delphi中可以直接引起汇编，建议直接嵌入到delphi程序中