﻿<?xml version="1.0" encoding="utf-8" standalone="yes"?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:trackback="http://madskills.com/public/xml/rss/module/trackback/" xmlns:wfw="http://wellformedweb.org/CommentAPI/" xmlns:slash="http://purl.org/rss/1.0/modules/slash/"><channel><title>博客园-万一的 Delphi 博客-随笔分类-&lt;span class=bt&gt;29.&lt;/span&gt;常用自定义函数</title><link>http://www.cnblogs.com/del/category/113264.html</link><description>记录学习过程中的点点滴滴，是喜欢、不是职业；记性不好，特别需要这么一个博客。</description><language>zh-cn</language><lastBuildDate>Wed, 19 Nov 2008 14:41:41 GMT</lastBuildDate><pubDate>Wed, 19 Nov 2008 14:41:41 GMT</pubDate><ttl>60</ttl><item><title>设置屏幕分辨率的函数 - 回复 "董勇" 的问题</title><link>http://www.cnblogs.com/del/archive/2008/11/19/1336819.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Wed, 19 Nov 2008 09:14:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/11/19/1336819.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1336819.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/11/19/1336819.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1336819.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1336819.html</trackback:ping><description><![CDATA[摘要: {函数}functionSetScreen(x,y:Word):Boolean;varDevMode:TDeviceMode;beginResult:=Enum...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/11/19/1336819.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1336819.html?type=1" width = "1" height = "1" />]]></description></item><item><title>汉字与区位码(1) - 转换函数</title><link>http://www.cnblogs.com/del/archive/2008/11/19/1336444.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Wed, 19 Nov 2008 02:14:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/11/19/1336444.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1336444.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/11/19/1336444.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1336444.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1336444.html</trackback:ping><description><![CDATA[摘要: 先上转换函数:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Gra...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/11/19/1336444.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1336444.html?type=1" width = "1" height = "1" />]]></description></item><item><title>合并两个 Wav 文件流的函数 - 回复 "刘文强" 的问题</title><link>http://www.cnblogs.com/del/archive/2008/10/25/1319582.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Sat, 25 Oct 2008 14:07:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/10/25/1319582.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1319582.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/10/25/1319582.html#Feedback</comments><slash:comments>1</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1319582.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1319582.html</trackback:ping><description><![CDATA[摘要: 问题来源:http://www.cnblogs.com/del/archive/2008/10/25/1069523.html#1351197unitUnit1;interface...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/10/25/1319582.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1319582.html?type=1" width = "1" height = "1" />]]></description></item><item><title>合并两个 Wav 文件的函数</title><link>http://www.cnblogs.com/del/archive/2008/10/25/1319576.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Sat, 25 Oct 2008 13:54:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/10/25/1319576.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1319576.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/10/25/1319576.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1319576.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1319576.html</trackback:ping><description><![CDATA[摘要: unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Contro...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/10/25/1319576.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1319576.html?type=1" width = "1" height = "1" />]]></description></item><item><title>建立快捷方式的函数: CreateShortcut - 非常实用、特别方便</title><link>http://www.cnblogs.com/del/archive/2008/10/23/1318238.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Thu, 23 Oct 2008 13:05:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/10/23/1318238.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1318238.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/10/23/1318238.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1318238.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1318238.html</trackback:ping><description><![CDATA[摘要: unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Contro...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/10/23/1318238.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1318238.html?type=1" width = "1" height = "1" />]]></description></item><item><title>查看字符串在不同编码(ASCII、Unicode、UTF7、UTF8、Default、BigEndianUnicode)下的 Hex</title><link>http://www.cnblogs.com/del/archive/2008/09/05/1284923.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Fri, 05 Sep 2008 02:33:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/09/05/1284923.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1284923.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/09/05/1284923.html#Feedback</comments><slash:comments>15</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1284923.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1284923.html</trackback:ping><description><![CDATA[摘要: 本例效果图:代码文件:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Clas...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/09/05/1284923.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1284923.html?type=1" width = "1" height = "1" />]]></description></item><item><title>用 TBytesStream 类实现的读文件为十六进制字符的函数</title><link>http://www.cnblogs.com/del/archive/2008/09/04/1284244.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Thu, 04 Sep 2008 09:28:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/09/04/1284244.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1284244.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/09/04/1284244.html#Feedback</comments><slash:comments>1</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1284244.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1284244.html</trackback:ping><description><![CDATA[摘要: 本例效果图:代码文件:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Clas...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/09/04/1284244.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1284244.html?type=1" width = "1" height = "1" />]]></description></item><item><title>复杂的结构化存取(三) : 存取函数</title><link>http://www.cnblogs.com/del/archive/2008/08/25/1276187.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Mon, 25 Aug 2008 14:44:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/08/25/1276187.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1276187.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/08/25/1276187.html#Feedback</comments><slash:comments>1</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1276187.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1276187.html</trackback:ping><description><![CDATA[摘要: 今天写了四个小函数,拿来与大家共享:Dir2Doc:把文件夹下的所有文件(不包括子文件夹)保存成一个复合文件;Doc2Dir:Dir2Doc的反操作;ZipDir2D...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/08/25/1276187.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1276187.html?type=1" width = "1" height = "1" />]]></description></item><item><title>执行数学公式的函数 - 回复 "heyongan" 的问题</title><link>http://www.cnblogs.com/del/archive/2008/08/16/1269478.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Sat, 16 Aug 2008 11:24:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/08/16/1269478.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1269478.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/08/16/1269478.html#Feedback</comments><slash:comments>6</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1269478.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1269478.html</trackback:ping><description><![CDATA[摘要: 问题来源:http://www.cnblogs.com/del/archive/2008/08/16/1268786.html#1289015本例在Delphi2007和Delphi...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/08/16/1269478.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1269478.html?type=1" width = "1" height = "1" />]]></description></item><item><title>对比两个文件是否相同的函数</title><link>http://www.cnblogs.com/del/archive/2008/08/12/1265986.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Tue, 12 Aug 2008 06:56:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/08/12/1265986.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1265986.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/08/12/1265986.html#Feedback</comments><slash:comments>6</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1265986.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1265986.html</trackback:ping><description><![CDATA[摘要: functionCompFile(constf1,f2:string):Boolean;varms1,ms2:TMemoryStream;i,p:Integer;...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/08/12/1265986.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1265986.html?type=1" width = "1" height = "1" />]]></description></item><item><title>根据窗口句柄获取所在程序路径 - 回复 "Haiwen" 的问题</title><link>http://www.cnblogs.com/del/archive/2008/07/30/1256669.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Wed, 30 Jul 2008 09:35:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/07/30/1256669.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1256669.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/07/30/1256669.html#Feedback</comments><slash:comments>15</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1256669.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1256669.html</trackback:ping><description><![CDATA[摘要: 问题来源:http://www.cnblogs.com/del/archive/2008/07/30/1255869.html#1272342本例效果图:代码文件:unit...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/07/30/1256669.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1256669.html?type=1" width = "1" height = "1" />]]></description></item><item><title>获取多边形面积的函数 - 回复 "dacsd" 的问题</title><link>http://www.cnblogs.com/del/archive/2008/07/10/1239621.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Wed, 09 Jul 2008 17:01:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/07/10/1239621.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1239621.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/07/10/1239621.html#Feedback</comments><slash:comments>11</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1239621.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1239621.html</trackback:ping><description><![CDATA[摘要: 问题来源:http://www.cnblogs.com/del/archive/2008/07/09/1237697.html#1250073我曾经傻呵呵地这样做过:http://www....&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/07/10/1239621.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1239621.html?type=1" width = "1" height = "1" />]]></description></item><item><title>给 Memo 排序的函数</title><link>http://www.cnblogs.com/del/archive/2008/07/04/1235809.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Fri, 04 Jul 2008 08:50:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/07/04/1235809.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1235809.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/07/04/1235809.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1235809.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1235809.html</trackback:ping><description><![CDATA[摘要: 本例效果图:代码文件:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Clas...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/07/04/1235809.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1235809.html?type=1" width = "1" height = "1" />]]></description></item><item><title>判断字符串中子串个数的函数</title><link>http://www.cnblogs.com/del/archive/2008/06/09/1216304.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Mon, 09 Jun 2008 10:16:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/06/09/1216304.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1216304.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/06/09/1216304.html#Feedback</comments><slash:comments>12</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1216304.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1216304.html</trackback:ping><description><![CDATA[摘要: unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Contro...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/06/09/1216304.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1216304.html?type=1" width = "1" height = "1" />]]></description></item><item><title>获取变量类型的函数</title><link>http://www.cnblogs.com/del/archive/2008/05/09/1190710.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Fri, 09 May 2008 15:01:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/05/09/1190710.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1190710.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/05/09/1190710.html#Feedback</comments><slash:comments>2</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1190710.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1190710.html</trackback:ping><description><![CDATA[摘要: Variants单元下的VarType函数可以获取变量类型,但它返回的只是一个数字;需要再结合一下在System单元里定义的这些常量:varEmpty=$0000;...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/05/09/1190710.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1190710.html?type=1" width = "1" height = "1" />]]></description></item><item><title>学习 TTreeView [13] - 在 TTreeView 中显示目录结构(的函数)</title><link>http://www.cnblogs.com/del/archive/2008/03/15/1106669.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Fri, 14 Mar 2008 16:27:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/03/15/1106669.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1106669.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/03/15/1106669.html#Feedback</comments><slash:comments>21</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1106669.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1106669.html</trackback:ping><description><![CDATA[摘要: 测试效果图:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Gr...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/03/15/1106669.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1106669.html?type=1" width = "1" height = "1" />]]></description></item><item><title>颜色转换函数: 从 Delphi 到 Html</title><link>http://www.cnblogs.com/del/archive/2008/02/19/1073610.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Tue, 19 Feb 2008 07:08:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/02/19/1073610.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1073610.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/02/19/1073610.html#Feedback</comments><slash:comments>2</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1073610.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1073610.html</trackback:ping><description><![CDATA[摘要: {由Delphi的颜色常数转换到Html颜色}functionHexColorToHtmlColor(c:Integer):string;varR,G,B:Byte;...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/02/19/1073610.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1073610.html?type=1" width = "1" height = "1" />]]></description></item><item><title>理解 Delphi 的类(十) - 深入方法[28] - 递归函数实例: 搜索当前目录下的所有嵌套目录</title><link>http://www.cnblogs.com/del/archive/2008/01/15/1039932.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Tue, 15 Jan 2008 07:45:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/01/15/1039932.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1039932.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/01/15/1039932.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1039932.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1039932.html</trackback:ping><description><![CDATA[摘要: //上面一个例子不能说明递归函数的本质,直接来个实用的函数吧,刚好要用.unitUnit1;interfaceusesWindows,Messages,Sys...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/01/15/1039932.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1039932.html?type=1" width = "1" height = "1" />]]></description></item><item><title>关于类的入门例子(9): 获取对象的 RTTI 属性与事件的函数</title><link>http://www.cnblogs.com/del/archive/2008/01/14/1037556.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Sun, 13 Jan 2008 18:25:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/01/14/1037556.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1037556.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/01/14/1037556.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1037556.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1037556.html</trackback:ping><description><![CDATA[摘要: unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Contro...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/01/14/1037556.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1037556.html?type=1" width = "1" height = "1" />]]></description></item><item><title>关于类的入门例子(8): 遍历窗体中所有控件的函数</title><link>http://www.cnblogs.com/del/archive/2008/01/13/1037321.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Sun, 13 Jan 2008 13:04:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/01/13/1037321.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1037321.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/01/13/1037321.html#Feedback</comments><slash:comments>6</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1037321.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1037321.html</trackback:ping><description><![CDATA[摘要: //显示窗体中所有控件的函数functionGetCtrls(Control:TWinControl;List:TStringList):Boolean;vari:Inte...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/01/13/1037321.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1037321.html?type=1" width = "1" height = "1" />]]></description></item><item><title>Delphi 中的 XMLDocument 类详解(14) - 遍历 XML 文件</title><link>http://www.cnblogs.com/del/archive/2008/01/03/1025133.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Thu, 03 Jan 2008 14:16:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/01/03/1025133.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1025133.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/01/03/1025133.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1025133.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1025133.html</trackback:ping><description><![CDATA[摘要: unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Contro...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/01/03/1025133.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1025133.html?type=1" width = "1" height = "1" />]]></description></item><item><title>关于 Delphi 中流的使用(9) 分割与合并文件的函数</title><link>http://www.cnblogs.com/del/archive/2008/01/02/1023395.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Wed, 02 Jan 2008 08:31:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/01/02/1023395.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1023395.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/01/02/1023395.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1023395.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1023395.html</trackback:ping><description><![CDATA[摘要: unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Contro...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/01/02/1023395.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1023395.html?type=1" width = "1" height = "1" />]]></description></item><item><title>关于 Delphi 中流的使用(8) 压缩与解压缩的函数</title><link>http://www.cnblogs.com/del/archive/2008/01/02/1023195.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Wed, 02 Jan 2008 06:26:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2008/01/02/1023195.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1023195.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2008/01/02/1023195.html#Feedback</comments><slash:comments>3</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1023195.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1023195.html</trackback:ping><description><![CDATA[摘要: unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Contro...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2008/01/02/1023195.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1023195.html?type=1" width = "1" height = "1" />]]></description></item><item><title>文件 Copy</title><link>http://www.cnblogs.com/del/archive/2007/12/19/1006124.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Wed, 19 Dec 2007 09:49:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2007/12/19/1006124.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/1006124.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2007/12/19/1006124.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/1006124.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/1006124.html</trackback:ping><description><![CDATA[摘要: procedureFileCopy(constFileFrom,FileTo:string);varFromF,ToF:file;NumRead,NumWritten:...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2007/12/19/1006124.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/1006124.html?type=1" width = "1" height = "1" />]]></description></item><item><title>获取本机IP地址</title><link>http://www.cnblogs.com/del/archive/2007/12/13/992966.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Wed, 12 Dec 2007 18:19:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2007/12/13/992966.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/992966.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2007/12/13/992966.html#Feedback</comments><slash:comments>1</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/992966.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/992966.html</trackback:ping><description><![CDATA[摘要: usesWinSock;functionLocalIP:String;typeTaPInAddr=Array[0..10]ofPInAddr;PaPIn...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2007/12/13/992966.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/992966.html?type=1" width = "1" height = "1" />]]></description></item><item><title>TColorToHex 与 HexToTColor</title><link>http://www.cnblogs.com/del/archive/2007/12/12/991574.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Tue, 11 Dec 2007 18:43:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2007/12/12/991574.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/991574.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2007/12/12/991574.html#Feedback</comments><slash:comments>1</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/991574.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/991574.html</trackback:ping><description><![CDATA[摘要: functionTColorToHex(Color:TColor):string;beginResult:=IntToHex(GetRValue(Color),2)...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2007/12/12/991574.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/991574.html?type=1" width = "1" height = "1" />]]></description></item><item><title>RGBToHSB</title><link>http://www.cnblogs.com/del/archive/2007/12/12/991572.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Tue, 11 Dec 2007 18:22:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2007/12/12/991572.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/991572.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2007/12/12/991572.html#Feedback</comments><slash:comments>2</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/991572.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/991572.html</trackback:ping><description><![CDATA[摘要: unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Contro...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2007/12/12/991572.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/991572.html?type=1" width = "1" height = "1" />]]></description></item><item><title>汉字与 Unicode 转换</title><link>http://www.cnblogs.com/del/archive/2007/12/09/988624.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Sun, 09 Dec 2007 13:46:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2007/12/09/988624.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/988624.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2007/12/09/988624.html#Feedback</comments><slash:comments>3</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/988624.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/988624.html</trackback:ping><description><![CDATA[摘要: {感谢robin（xuebin418@163.com）提供}//转换functionStr_Gb2UniCode(text:string):String;vari,...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2007/12/09/988624.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/988624.html?type=1" width = "1" height = "1" />]]></description></item><item><title>批量删除同类文件的函数</title><link>http://www.cnblogs.com/del/archive/2007/11/24/971475.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Sat, 24 Nov 2007 15:43:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2007/11/24/971475.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/971475.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2007/11/24/971475.html#Feedback</comments><slash:comments>0</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/971475.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/971475.html</trackback:ping><description><![CDATA[摘要: procedureDelFiles(f:string);varSearchRec:TSearchRec;beginChDir(ExtractFilePath(f));...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2007/11/24/971475.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/971475.html?type=1" width = "1" height = "1" />]]></description></item><item><title>将汉字翻译成拼音缩写的函数</title><link>http://www.cnblogs.com/del/archive/2007/11/22/968825.html</link><dc:creator>万一</dc:creator><author>万一</author><pubDate>Thu, 22 Nov 2007 08:53:00 GMT</pubDate><guid>http://www.cnblogs.com/del/archive/2007/11/22/968825.html</guid><wfw:comment>http://www.cnblogs.com/del/comments/968825.html</wfw:comment><comments>http://www.cnblogs.com/del/archive/2007/11/22/968825.html#Feedback</comments><slash:comments>8</slash:comments><wfw:commentRss>http://www.cnblogs.com/del/comments/commentRss/968825.html</wfw:commentRss><trackback:ping>http://www.cnblogs.com/del/services/trackbacks/968825.html</trackback:ping><description><![CDATA[摘要: functionGetPyChar(constHZ:AnsiString):string;constHZCode:array[0..25,0..1]ofInteger=...&nbsp;&nbsp;<a href='http://www.cnblogs.com/del/archive/2007/11/22/968825.html'>阅读全文</a><img src ="http://www.cnblogs.com/del/aggbug/968825.html?type=1" width = "1" height = "1" />]]></description></item></channel></rss>