delphi 如何调用汇编实现两个实数相乘?(100分)

  • 主题发起人 tom12345
  • 开始时间
T

tom12345

Unregistered / Unconfirmed
GUEST, unregistred user!
delphi 如何调用汇编实现两个实数相乘?请以函数的形式给出源程序。
 
function AsmMUL(A,B:Single):Single;
asm
fld A
fmul B
fstp Result
end;
 
请再回答,以下程序为什么不对?
var
A,B,Result:Single;
begin
asm
fld A
fmul B
fstp Result
end;
label1.caption:=floattostr(result);
end;
 
完全没问题呀:
procedure TForm1.Button9Click(Sender: TObject);
var
A,B,Result:Single;
begin
A:=1.5;
B:=3;
...//同你的代码一样
end;

如果你是在函数中,Result已经是该函数的返回值了,不能重复定义。
 
接受答案了.
 
顶部