如何提取某个函数或过程？

我有时候在写程序的时候，只能用到一个单元中的几个函数，比如SYSUTILS.PAS中的几个字符串转换函数，请问用什么辅助软件可以将一个单元中的特定函数提取出来使用？以便减少软件的体积？

解决方案 »

  1.   

    直接粘贴出来
    去掉uses Sysutils
      

  2.   

    你自己写一个类SYSUTILS.PAS好了，中间只放你要的特定函数。
      

  3.   

    建一个公用的单元，然后把你需要的函数或者过程写在里面，你在其它单元中要用到这个函数或过程时，直接use这个公用的单元就可以了。
      

  4.   

    同意楼上的,建立一个新Uint,把公用的函数和过程都放到里面..调用就好了!
      

  5.   

    1、DELPHI不会自己提取，不信你引用SYSUTILS.PAS单元但在工程中不调用SYSUTILS中的任何一个函数，最后编译后的程序体积也会增大15K，引用CLASSES单元则增加70K，FORMS单元就更不用说了。
    2、我当然知道自己写公用函数。但每个项目要用的函数都是不同的，而且手工提取函数太麻烦和繁琐，因为有时候一个函数还牵掣到本单元甚至其他单元的一些函数，如果手工提取就会象挖花生一样，一牵一大堆，没完没了！我想找一个自动提取的工具软件。
      

  6.   

    delphi的编译器已经做了这步了，不用操心了
      

  7.   

    TO:iBear(大熊) 那为什么引用SYSUTILS.PAS单元但在工程中不调用SYSUTILS中的任何一个函数，最后编译后的程序体积也会增大15K，引用CLASSES单元则增加70K，FORMS单元就更不用说了。学习！
      

  8.   

    当然调用了应该知道某一单元
    initialization后面跟的代码是什么意思吧?