<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[chenfujun123的专栏]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/chenfujun123</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; chenfujun123]]></copyright><item><title><![CDATA[一个画钟程序,终于做完了,作个记号]]></title><link>https://blog.youkuaiyun.com/chenfujun123/article/details/7080483</link><guid>https://blog.youkuaiyun.com/chenfujun123/article/details/7080483</guid><author>chenfujun123</author><pubDate>Sat, 17 Dec 2011 19:07:56 +0800</pubDate><description><![CDATA[procedure TForm1.Timer1Timer(Sender: TObject);
var
  i:integer;
  MyNow      : TDateTime;
  Hour, Min, Sec, mSec  : Word;
  vh, vm, vs : Real;
begin

edit1.Text:=timetostr(NOW);
  Self.Refres]]></description><category></category></item><item><title><![CDATA[通过设置maskedit实现小数位的输入控制]]></title><link>https://blog.youkuaiyun.com/chenfujun123/article/details/7070110</link><guid>https://blog.youkuaiyun.com/chenfujun123/article/details/7070110</guid><author>chenfujun123</author><pubDate>Wed, 14 Dec 2011 13:44:14 +0800</pubDate><description><![CDATA[//首先设置maskedit的格式为:'!9999.99;1; ';  //最后一个分号后有一个空格
//或者在maskedit1enter过程中加入.

procedure TForm1.MaskEdit1Enter(Sender: TObject);

begin

(sender as Tmaskedit).EditMask:='!9999.99;1; ';  //最后一个分号]]></description><category></category></item><item><title><![CDATA[delphi tyr except截获错误异常类名并替换例子]]></title><link>https://blog.youkuaiyun.com/chenfujun123/article/details/7056340</link><guid>https://blog.youkuaiyun.com/chenfujun123/article/details/7056340</guid><author>chenfujun123</author><pubDate>Fri, 09 Dec 2011 11:34:24 +0800</pubDate><description><![CDATA[procedure TForm1.Button1Click(Sender: TObject);
begin
  try
   adoquery1.Post;
  except
   //showmessage( '有重复数值或者空白行或其它错误，请检查！');
   //adoquery1.Cancel;
    on E:exception do   //这里返回e.mesage系]]></description><category></category></item><item><title><![CDATA[delphi 取得数据集某字段值的六种方法]]></title><link>https://blog.youkuaiyun.com/chenfujun123/article/details/7037082</link><guid>https://blog.youkuaiyun.com/chenfujun123/article/details/7037082</guid><author>chenfujun123</author><pubDate>Sat, 03 Dec 2011 11:30:37 +0800</pubDate><description><![CDATA[//取name字段的示例
 
edit1.Text:=ADOquery1.Fields[2].AsString;  
 //取得数据表的第二个字段的值

edit2.Text:=ADOquery1.FieldValues['name'];

edit3.Text:=ADOquery1['name'];

edit4.Text:=ADOquery1.FieldByname('nam]]></description><category></category></item><item><title><![CDATA[最短小精悍的Delphi小写数字转大写的函数]]></title><link>https://blog.youkuaiyun.com/chenfujun123/article/details/6997779</link><guid>https://blog.youkuaiyun.com/chenfujun123/article/details/6997779</guid><author>chenfujun123</author><pubDate>Mon, 21 Nov 2011 19:45:04 +0800</pubDate><description><![CDATA[function   NumTOChina(i:Real):string;   //小写数字转大写
const
    d= '零壹贰叁肆伍陆柒捌玖分角圆拾佰仟万拾佰仟亿拾佰仟';
var
    m,k:string;
    j:integer;
begin
    i:=i*100;
    k:= '';
    m:=inttostr(trunc(i));
    f]]></description><category></category></item></channel></rss>