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

procedure TForm1.Timer1Timer(Sender: TObject); var   i:integer;   MyNow      : TDateTime;   Hour, Min, Sec, mSec  : Word;   vh, vm, vs : Real; ...

2011-12-17 19:07:56

阅读数 302

评论数 0

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

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

2011-12-14 13:44:14

阅读数 660

评论数 0

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

procedure TForm1.Button1Click(Sender: TObject); begin   try    adoquery1.Post;   except    //showmessage( '有重复数值或者空白行或其它错误,请检查!');    //adoquer...

2011-12-09 11:34:24

阅读数 336

评论数 0

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

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

2011-12-03 11:30:37

阅读数 1025

评论数 1

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

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

2011-11-21 19:45:04

阅读数 1130

评论数 2

提示
确定要删除当前文章?
取消 删除
关闭
关闭