델피의 클래스 이해(10) - 깊이 있는 방법[15] - 다른 단원의 함수 호출

822 단어 Delphi


//  15:          

//       :

unit Unit2;



interface



function MyFun(x,y: Integer): Integer; {          }



implementation



function MyFun(x,y: Integer): Integer; {          }

begin

  Result := x + y;

end;



end.





//       :

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



uses Unit2; {   uses        }



procedure TForm1.Button1Click(Sender: TObject);

var

  i: Integer;

begin

  i := MyFun(1,2);         {    }

  //i := Unit2.MyFun(1,2); {        ,       }

  ShowMessage(IntToStr(i)); {3}

end;



end.


 
   

좋은 웹페이지 즐겨찾기