论坛 › Delphi交流 › Delphi里面的两个函数不会使，大家帮忙看看怎样才能生效

你丫的，看我 发表于 2013-2-18 20:47:09

Delphi里面的两个函数不会使，大家帮忙看看怎样才能生效

procedure TForm1.Button2Click(Sender: TObject);
var
num:Integer;
temp:Integer;
begin
    num:=StrToInt(edt1.Text);
    temp:=Abs(num);
    edt1.Text:=IntToStr(temp);
end;


procedure TForm1.Button4Click(Sender: TObject);
var
num:Extended;
temp:Int64;
begin
    num:=StrToFloat(edt1.Text);
    temp:=Round(num);
    edt1.Text:=FloatToStr(temp);
end;

~_清_風_~ 发表于 2013-3-9 17:16:54

Round(number,num_digits)
Number需要进行四舍五入的数字。
Num_digits指定的位数，按此位数进行四舍五入。

Abs 好像没错

11年__那些事儿 发表于 2013-7-20 16:11:33

uses单元里加入math单元

查看完整版本: Delphi里面的两个函数不会使，大家帮忙看看怎样才能生效