小编Raú*_*ade的帖子

作为一个让我自己进行的练习,我想在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):缺少运算符或分号.