zoukankan      html  css  js  c++  java
  • 深入方法(13)- 在 interface 区声明的方法

    //要点13: 需要给其他单元调用, 必须在 interface 声明, 但必须在 uses 区后面
    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;
    
    {需要给其他单元调用, 必须在 interface 声明, 但必须在 uses 区后面}
    function MyFun(x,y: Integer): Integer; {函数声明}
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    function MyFun(x,y: Integer): Integer; {函数实现}
    begin
      Result := x + y;
    end;
    
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
      i: Integer;
    begin
      i := MyFun(1,2);
      ShowMessage(IntToStr(i)); {3}
    end;
    
    end.
  • 相关阅读:
    暑假每周学习进度-7
    暑假每周学习进度-6
    寒假生活05
    寒假生活04
    寒假生活03
    寒假生活02
    寒假生活01
    软件设计师2019模拟小测
    第二周学习记录
    2019秋季学习计划
  • 原文地址:https://www.cnblogs.com/fansizhe/p/12729714.html
Copyright © 2011-2022 走看看