![](https://img-blog.csdnimg.cn/20201014180756780.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
delphi
文章平均质量分 54
皮卡
一点一滴学习delphi....
展开
-
最短小精悍的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 · 1490 阅读 · 2 评论 -
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 · 2986 阅读 · 1 评论 -
一个画钟程序,终于做完了,作个记号
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 · 447 阅读 · 0 评论 -
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 · 585 阅读 · 0 评论 -
通过设置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 · 1506 阅读 · 0 评论