摘要：
//注：本源码由中国软件研发联盟122058606 管理员 广州-广州仔 提供unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) StatusBar1: TStatusBar; Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormShow(Send
阅读全文
posted @ 2011-07-15 03:29
千年小妖
阅读(1235)
推荐(0)
编辑
摘要：
delphi的取整函数round、trunc、ceil和floor 1.Round（四舍六入五留双）功能说明：对一个实数进行四舍五入。(按照银行家算法) 例：var i, j: Integer;begin i := Round(1.5); // i等于2 j := Round(2.5); // j等于2end;在Delphi中使用Round函数得到的答案有时与我们所预期的会不太一样：采用的是四舍六入五留双。即当舍或入位大于或小于五时按四舍五入来处理，而当舍或入位等于五时，就要看前面一位是什么，根据奇进偶不进，它总是返回一个偶数值。例： i:= Round(11.5)//i等于12i:= Rou
阅读全文
posted @ 2011-07-15 03:03
千年小妖
阅读(40037)
推荐(1)
编辑
摘要：
var m_bSort: boolean=false; //控制正反排序的变量 //ListView排序的回调函数，默认的是快速排序法，也可以自己在这里做算法 function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall; var txt1,txt2 : string; begin if ParamSort <> 0 then begin try txt1 := Item1.SubItems.Strings[ParamSort-1]; txt2 := Item2.SubI
阅读全文
posted @ 2011-07-15 03:00
千年小妖
阅读(4760)
推荐(0)
编辑
