用delphi做这个功能怎么做？

我写的一部分代码，写在单元1里面，但是其它单元也要写很类似的代码，怎么能使代码重用，来节省时间和文件大小呢？

答案：我向来都是弄一个DataModule窗体保存为unit Global;，把各种需要共用的东西，包括变量、函数和过程等放里面，还有放几个ADO查询控件，免得没个窗体都不断创建和释放查询控件消耗资源。
tadoconnection控件也放里面，DataModule的onCreate事件连接数据库。所有要用这些公共的东西就uses一下这个Global就得了。 
用DataModule窗体比用一个纯unit(没有窗体的)好的多，可以在他的onCreate事件调用ini配置文件连接数据库，如果连不上，调用一个窗体让客户配置并保存到ini文件，纯unit(没有窗体的)由于没有onCreate事件，很多命令都不能在里面执行。

其他：创建一个 unit(没有窗体的), 在这个单元里写公用的函数, 过程, 全局变量等, 
然后其他单元里调用即可 模块化程序设计。具体百度。 定义过程，过程重复调用就可以了。 你可以把类似的代码，封装到一个类里面，然后调用 

上一个：php自动跳转传值乱码
下一个：问delphi 中将Tquery控件查找到的记录数值写入某一edit中代码如何写？