L libaoliang Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-15 #2 设置字段的displayformat 属性即可, 如: #.## 即可实现你的要求!
T Traveller Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-15 #5 Roundto是Delphi6新增的,如果不是Delphi6那么用下列语句自己实现一个Roundto就行了: function Roundto(x: double; n: Integer): double; var Temp: Double; begin // 求出10的n次方 Temp := IntPower(10, n); // 利用Round取得结果 Result := Round(x / Temp) * Temp; end;
Roundto是Delphi6新增的,如果不是Delphi6那么用下列语句自己实现一个Roundto就行了: function Roundto(x: double; n: Integer): double; var Temp: Double; begin // 求出10的n次方 Temp := IntPower(10, n); // 利用Round取得结果 Result := Round(x / Temp) * Temp; end;
S SanDao Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-15 #7 天哪,刚刚回答完,又有人问了! http://www.delphibbs.com/delphibbs/dispq.asp?LID=1266882去看吧
山 山猫 Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-15 #9 有一个 Delphi 函数 速 查手册. 是一个 TXT 文件 . 写的 很全了. Delphi 中的 函数 或 过程 全有了. 你可以 下一个 试. 找不到, 你就给我写 信 好了. hbtomcat@21cn.com
有一个 Delphi 函数 速 查手册. 是一个 TXT 文件 . 写的 很全了. Delphi 中的 函数 或 过程 全有了. 你可以 下一个 试. 找不到, 你就给我写 信 好了. hbtomcat@21cn.com