delphi 自定义函数声明

如果需要让别的单元可以调用,可以新建一个公共单元并在interface部分,var声明如下。

unit Unit_common;

interface

uses
  SysUtils;//如有必要还可添加其它单元名。
var

    function mytest(i : integer): string;

implementation

function mytest(i: integer): string;
var

 //如有函数的私有变量可在此声明

begin
  i := i + 1;
  result := inttostr(i);
end;

调用此函数时可在调用的单元中的user(在interface或implementation部分效果一样)部分增加此单元的单元名,例如:

 

 

unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, Grids, Calendar, ComCtrls,
  Mask, DBCtrls, Unit_common, main, datamodel;

type
  Tfrm_login = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    

    ………………..

 

    procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
    procedure btn_okClick(Sender: TObject);
    procedure btn_cancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_login: Tfrm_login;

implementation

 

{$R *.dfm}

 

procedure Tfrm_login.btn_okClick(Sender: TObject);
var

    a:string;

begin
    …….

    a:=mytest(5);

    …….

end;

本文固定链接: http://www.ccsbbs.com.cn/archives/6403.html | 极限手指

该日志由 极限手指 于2013年04月11日发表在 Delphi 分类下, 你可以发表评论,并在保留原文地址及作者的情况下引用到你的网站或博客。
原创文章转载请注明: delphi 自定义函数声明 | 极限手指

delphi 自定义函数声明:等您坐沙发呢!

发表评论

您必须 [ 登录 ] 才能发表留言!