几年前为客户做的系统，最近几天要升级，说是以前UserName的长度不够，原来是10现在突然变成了20位，要求修改一下，以前系统作了输入位数限制的，但源代码所在硬盘几年前物理层面上GAME OVER了，这下可好？！——%*——￥*##（+_)+)_）。
    没办法，总不能因为这个重写吧，那至少要2－3个月，而且客户催得像住房上火一样，今天说明天就要！咋办？做一次黑客吧，把自已的系统给改了（还好以前做的系统没加壳，要不，怕怕——#*+_|￥——*%#），改客户端、改数据库创建程序、改服务端、改数据库导入导出工具、重新打包，累了一上午带一中午终于完成了！

   AutoUpgraderPro是一个非常优秀的自动升级控件，它有For Delphi 6.0~2007和C++Builer 6.0~2007的所有版本，而且支持20多种语言。
   但是美中不足的是，在中文环境下的字体非常难看，而且图标和图示也很难看。于是在Ver 4.1.1的原版的基础上对它进行了美化，并且加入了对Delphi2007的支持。
修改内容：
*修改了所有窗体的默认字体为Tahoma 9号字体，中英文都非常漂亮了。
*修改了自动升级时要求确认窗体的按钮提示。
*美化了升级窗口和下载提示窗口的图标和提示图片。

美化后的截图如下：


控件下载：

      用AdoQuery从脚本文件读入内容，执行时提示“不正常地定义参数对象”，“提供了不一致或不完整的信息”之类的错误，本以为是SQL语句有问题，用查询分析器执行时没有发现错误，一切OK。但一到Delphi中执行就提示“不正常地定义参数对象”，“提供了不一致或不完整的信息”。用Google对关键字进行检索，发现有提示，说是由于TADOQuery对象把":"后的字符当作变量来使用，导致数据识别错误。只要把 TADOQuery.ParamCheck设置为False即可。一试，果然如此。

    Webplayer9是一个非常优秀的P2P电影点播系统，速度一流，拖动无任何延时，是做高清影片点播系统的绝对一流的选择。只是它自身带的批量电影添加工具实在不好用，这么优秀的系统如果因为这一个缺憾而放弃的话，岂不太可惜了。于是有了下面这个工具。

TStrings是一个抽象类，在实际开发中，应该是除了基本类型外应用得最多的一种数据类型了。
常规的用法大家都知道，现在来讨论它的一些高级的用法。
先把要讨论的几个属性列出来：
1、CommaText
2、Delimiter & DelimitedText
3、Names & Values & ValueFromIndex
先看第一个：CommaText。怎么用呢？用代码说话：
const constr :String = 'aaa,bbb,ccc,ddd'; var strs :TStrings; i :Integer; begin strs := TStringList.Create; strs.CommaText := constr; for i := 0 to Strs.Count-1 do     ShowMessage(Strs[i]); end;