如题

解决方案 »

  1.   

    //unit1
    function function1....;//unit2
    uses unit1,.....;unit1.funciton1;
      

  2.   

    不用,在单元1 中,implementation前声明一个函数myfunction,implementation后完成他,
    在单元2中,包含单元1后,就直接可以用myfunction
      

  3.   

    unit UnitCore;
    interface{$I ExamSignup.inc}uses Windows, Classes, Graphics, SysUtils, Forms, IniFiles, DB, Halcn6db, Jpeg;  procedure WriteIniValueBool(Const IniFileName,Section,Ident:string;Value:Boolean);implementationprocedure WriteIniValueBool(Const IniFileName,Section,Ident:string;Value:Boolean);
    var ini:TiniFile;
    begin
      ini :=TIniFile.Create(IniFileName);
      Try
        Ini.WriteBool(Section,Ident,Value);
      Finally
        Ini.Free;
      end;
    end;end.