皮卡-CSDN博客

原创一个画钟程序,终于做完了,作个记号

procedure TForm1.Timer1Timer(Sender: TObject);var i:integer; MyNow : TDateTime; Hour, Min, Sec, mSec : Word; vh, vm, vs : Real;beginedit1.Text:=timetostr(NOW); Self.Refres

2011-12-17 19:07:56 467

原创通过设置maskedit实现小数位的输入控制

//首先设置maskedit的格式为:'!9999.99;1; '; //最后一个分号后有一个空格//或者在maskedit1enter过程中加入.procedure TForm1.MaskEdit1Enter(Sender: TObject);begin(sender as Tmaskedit).EditMask:='!9999.99;1; '; //最后一个分号

2011-12-14 13:44:14 1557

原创 delphi tyr except截获错误异常类名并替换例子

procedure TForm1.Button1Click(Sender: TObject);begin try adoquery1.Post; except //showmessage( '有重复数值或者空白行或其它错误，请检查！'); //adoquery1.Cancel; on E:exception do //这里返回e.mesage系

2011-12-09 11:34:24 613

原创 delphi 取得数据集某字段值的六种方法

//取name字段的示例 edit1.Text:=ADOquery1.Fields[2].AsString; //取得数据表的第二个字段的值edit2.Text:=ADOquery1.FieldValues['name'];edit3.Text:=ADOquery1['name'];edit4.Text:=ADOquery1.FieldByname('nam

2011-12-03 11:30:37 3059 1

转载最短小精悍的Delphi小写数字转大写的函数

function NumTOChina(i:Real):string; //小写数字转大写const d= '零壹贰叁肆伍陆柒捌玖分角圆拾佰仟万拾佰仟亿拾佰仟';var m,k:string; j:integer;begin i:=i*100; k:= ''; m:=inttostr(trunc(i)); f

2011-11-21 19:45:04 1527 2