创建一个unit单元,建立自己的函数过程库,把常用的方法放到你的 unit 里边,以后只需把这个 unit uses 进来,即可调用里面的方法了。
记住,永远不要做重复的编程工作,你觉得某个函数过程以后会常用到,就放到自己的 unit 里去。
unit unit_name;
interface
{uses, const, type, var, procedure&function(pre decl.) ...}
implementation
{procedure&function implementation goes here. }
begin
{init. here}
end.