自己建立一个Button1按钮

procedure TForm1.Button1Click(Sender: TObject);
var
S, T: string;
begin
Str(1.4:2:1, T); //用Str转换了T的格式
S := T + ' Truncs to ' + IntToStr(Trunc(1.4)) + #13#10; //回车加换行
Str(1.5:2:1, T);
S := S + T + ' Truncs to ' + IntToStr(Trunc(1.5)) + #13#10; //S不断叠加
Str(-1.4:2:1, T);
S := S + T + ' Truncs to ' + IntToStr(Trunc(-1.4)) + #13#10; //TrunC转换函数
Str(-1.5:2:1, T);
S := S + T + ' Truncs to ' + IntToStr(Trunc(-1.5)); //TrunC把小数点后面的全去掉了.
MessageDlg(S, mtInformation, [mbOk], 0);
end;