Delphi中的Sqrt函数

Question

作为一项让我自己进行的练习，我想在Delphi中设计一个计算器。因此，总和，子道，乘法和除法几乎都有效。

唯一一个与Square Root有关的功能。

变量被扩展，我几乎只是从String（我使用两个EditBox）转换为Float

var
   Form1: TForm1;
   a, b, r: Extended;

procedure TForm1.SqrtClick(Sender: TObject);
begin
   a  := StrToFloat(Edit1.Text);
   r  := Sqrt(a);
   ShowMessage(FloatToStr(r));
end;

德尔福回归我

  

[错误] calc.dpr（72）：缺少运算符或分号。

Answer 1

问题在上面的代码段中并不明显。但由于我获得了通灵能力，我仍然可以告诉你这里发生了什么。

您的表单上有一个名为sqrt的按钮。因此，当您在代码中编写sqrt时，它指的是按钮，而不是RTL函数。

解决方案：撰写System.Sqrt代替Sqrt（= Self.Sqrt，按钮），或重命名按钮。