procedure TForm2.Button4Click(Sender: TObject);
//取整示例
var
a:Extended ;
b:integer;
c:string;
begin
try
begin
a:=strtofloat(edit1.text);
self.viewlabel .caption:= floatTostr(int(a));
end;
except
showmessage('error');
end;end;
解决方案 »
- 如何找到TClientDataSet的procedure ReconcileError覆盖
- 十万火急-----Delphi 2006 将 CPort3 封装进 DLL 的后续问题
- 一个简单的图形处理问题,小弟刚学,请大哥些帮我看下。100分相赠。
- 怎样为DELPHI做的应用软件做一个安装程序?
- 奇怪的简单问题,在线等
- 完整的程序文件
- 请问那里有带checkbox的listView控件下载啊?
- 急!如何屏蔽MSCOMM弹出的错误信息:port already open
- 请各位高手指点不做计算机工作的人怎样入门求精
- paradox表的时间字段的操作!
- 控件的对象名
- 怎么样学好DELPHI+MSSQL编程
出错了才显示,不出错的时候不显示。
另外,别再调试环境下运行,直接点EXE运行!