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

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

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