delphi中如何创建一个公用的函数库，供所有模块调用？急！！！

Question

例如，我想把身份证号码的有效性检查作为一个共用函数
我应把它放在哪里？如何调用？请高手详细解答！谢谢！

Answer 1

親建個 unit, 就放在裹面, 其它單元要用到, 就 uers 這個 unit就可!

Answer 2

放在一个单元中
然后爱莫能助和UERS调用

Answer 3

这个unit里面,难道这样就可以了吗unit ValChk;
   {Check the validatation of input}
interfaceimplementation  function IdentityIDChk (strID : string) : boolean;
  var
    i,len : integer;
  begin
    //代码
  end;end.能不能给个范例，谢谢
我刚学delphi, 就碰到这个问题

Answer 4

新建单元(unit)，所有的公用函数都放在里面，其它单元用到其中的函数的时候，可以用uses来引用。如：要在当前单元中引用公用单元public.pas，则需打开引用单元，选择file-->uses unit，在弹出的窗口中选择被引用单元。

Answer 5

要先在implementation前面声明这个函数,此单元中需要包括公用的pas文件，如sysutils等。需要哪个就把哪个放进去。unit ValChk;
   {Check the validatation of input}
interfaceuses classes,sysutils,windows;   {public utils}function IdentityIDChk (strID : string) : boolean;{声明这个函数}implementation  function IdentityIDChk (strID : string) : boolean;
  var
    i,len : integer;
  begin
    //代码
  end;end.

Answer 6

公用的函数库是可放在USES INTERFACE 下产单元，像Windows,SysUtils单元都是
//新建一个公共单元
unit ValChk;
   {Check the validatation of input}
interface
uses
  Windows,SysUtils;//你想引用的公共单元function IdentityIDChk(strID:string):boolean;implementation  function IdentityIDChk (strID : string) : boolean;
  var
    i,len : integer;
  begin
    //代码
  end;
end.
然后在你要用到该函数的单元里USES该单元。