Delphi控件的“拿来主义”

Delphi控件的“拿来主义”2008-04-20xm4014"一个优秀的Delphi程序员，不仅要会写控件，还要会使用控件。"

我还是一个半瓢水的程序员，因此目前为止我所能努力达到的境界是:

一个半瓢水的程序员，管他会不会写控件，只要能拿来改就可以了。

使用过Delphi的朋友都知道，我们在设计Delphi应用程序的某一功能时总是希望能够有现成的第三方免费控件可以拿来使用。但实际情况往往是，网上的控件确实种类繁多，优秀作品也数不胜数，但真正完全能够符合设计者具体要求的控件却很少。究其原因，不外乎以下几条

1、国人开发的应用程序大多具有中国特色，而优秀的第三方控件往往是国外程序开发人员开发的（大名鼎鼎的Rxlib，知道吧，俄罗斯人的作品）。功能定义上的差别导致了控件的不可用性，看看QuickReport就知道了（当然，QuickReport编的也很烂）。

2、真正优秀的第三方控件总是从大局上把握控件所能达到的功能，细节问题考虑的不多。而我们设计的程序通常要考虑到很多操作细节上的问题（一般是客户的要求，有时会有些变态）

3、对于许多很有特色的控件，我们所需要的只是其中一部分功能，但是它被整合到了某一个大的方法中，无法为我们所用。

4、优秀和免费总是两个矛盾，天下没有免费的午餐。

种种原因，限制了开发者对控件资源的充分利用。其实，很多控件的代码都提供了开放的接口。只要大家对控件的原理有一定的了解，然后对别人的控件代码作一捏捏的修改，就可以无缝的添加自己需要的功能，或剔除冗余的功能。既达到了开发的目的，又避免了重写代码的麻烦，一举两得（好像很不负责任啊，没办法了，半瓢水嘛）。关于控件的原理，应该有很多文章介绍过了，在这里我想通过一个具体的实例来介绍一下怎样将别人的控件"拿来"为我所用。

这个例子是关于如何将一个文本数据导入导出控件作一些简单的修改之后拿来使用的。

◆程序功能

将图书馆的ISO文件中的部分数据转到Oracle8数据库中。

◆设计要求

1.显示导入进度条。

2.在导入过程中，如果某条纪录导入失败，不显示异常，而将导入失败的纪录记入日志。

◆设计思路

程序的关键在文本数据字段的分离。通常的做法,都是先将字符串进行处理（RegulateString）,然后把串中每个字符同分割符（可以是空格,逗号等）比较，将不是分割符的字符追加到一个串中（GetRecordItem）,得到一个字段的内容。通过一个循环（循环次数由GetItemNum来定）,就可以将一个字符串分成几个字段。最后的工作就是将分离出来的数据对号入座加入数据库。

按照上面的思路,利用Delphi提供的已有函数和过程,实现起来应该不难,但问题是,我可不想每次编文本导入程序的时候,都把什么这啊那的函数过程重新定义一遍,哎,最烦的就是重复性的工作了.那么有没有现成的控件将上述过程都封装起来呢？PS:又不用我编呢？

答案是肯定的！前几天刚刚下了一个免费控件TPgCSV,据说可以实现文本的导入和导出.翻出来一看,正是我想要的。