<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[dghbc的专栏]]></title><description><![CDATA[]]></description><link>https://blog.csdn.net/dghbc</link><language>zh-cn</language><generator>https://blog.csdn.net/</generator><copyright><![CDATA[Copyright &copy; dghbc]]></copyright><item><title><![CDATA[delphi 金额转为中文]]></title><link>https://blog.csdn.net/dghbc/article/details/5713392</link><guid>https://blog.csdn.net/dghbc/article/details/5713392</guid><author>dghbc</author><pubDate>Mon, 05 Jul 2010 13:30:00 +0800</pubDate><description><![CDATA[function MoneyName(Value: Double): string;  const  SCnNumber = '零壹贰叁肆伍陆柒捌玖';  SCnPower = '拾佰仟';  var  V, V1: Double;  X: array[0..4] of Integer; //分别表示万亿位]]></description><category></category></item><item><title><![CDATA[窗口吸附]]></title><link>https://blog.csdn.net/dghbc/article/details/5713384</link><guid>https://blog.csdn.net/dghbc/article/details/5713384</guid><author>dghbc</author><pubDate>Mon, 05 Jul 2010 13:29:00 +0800</pubDate><description><![CDATA[<br />先新建一应用程序项目，把主窗口Form1适当改小些，并将BorderStyle设为bsNone。放一个按钮元件，双击它并在OnClick事件中写“Close;”。待会儿就按它来结束程序。现在切换到代码编辑区，定义几个全局变量。 <br />var <br />Form1: TForm1; //“磁性”窗口 <br />LastX, LastY: Integer; //记录前一次的坐标 <br />WinampRect:Trect; //保存Winamp窗口的矩形区域 <br />hwnd_Win]]></description><category></category></item></channel></rss>