Delphi TrunC转换函数


本文整理自网络,侵删。

 自己建立一个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;

相关阅读 >>

Delphi下firedac连接mysql数据库零起点

Delphi中限制鼠标的移动区域

Delphi getprocesshandleasname 获取进程句柄

Delphi 中判断windows系统是否是64位系统

Delphi mysql里Delphi事件类型转unix时间戳

Delphi 如何将颜色值转换为html格式?

Delphi强制刷新注册表方法

Delphi中判断是否是64位操作系统

Delphi 突破主动防御

Delphi idftp

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...