Abs 絶対値

Abs関数は引数の絶対値を返す関数です。Delphiでも同名の関数 Absを使用します。

    ■ Absの使用例
 

    
  procedure TForm1.Button1Click(Sender: TObject);
  var
    intData1  : integer;
    intData2  : integer;
  begin
    intData1    :=    100;
    intData2    :=   -200;
    // それぞれの絶対値
    Label1.Caption  :=  IntToStr(Abs(intData1)); // 100
    Label2.Caption  :=  IntToStr(Abs(intData2)); // 200

    // プラスとマイナスを入れ替えるには以下のようにします。  
    Label3.Caption  :=  IntToStr(-(intData1));   // -100
    Label4.Caption  :=  IntToStr(-(intData2));   // 200
  end;