edit显示数字带小数点0.00 如果数字不是整数 按.自动到小数的位置 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 r:=strtofloat(formatfloat('#0.00',r)); procedure TForm1.Button2Click(Sender: TObject);var f: single; s: string;begin str(f:5:2,s); edit1.Text:=s;end; formatfloat('0.00',strtofloat(edit1.text)); 算法: 通过文件列表创建文件夹Treeview 如何取得当前控件? 介绍二次开发包的编写? AdvStringGrid 换行问题。急! 如何将数据库里的字段和数据导出成TXT文本格式??? 在使用DBChart的时候,需要在底坐标竖着显示资料名称,应该怎么设置呢?谢谢!! Tbatchmove 使用的一个问题 一個關於Delphi針對SQL常見問題 還望各位大俠指教!!!!! 再次发贴:500分谁会做这个ocx! 简单---送分 请问源代码中几个用+号相连字符串怎么变成一个完整的字符串? 系统音量控制问题
procedure TForm1.Button2Click(Sender: TObject);
var
f: single;
s: string;
begin
str(f:5:2,s);
edit1.Text:=s;
end;