如何在单元中添加自定定义函数

Question

如何在单元中添加自定定义函数

Answer 1

在
type
下面添加，也就是平常看到的
TForm1=class(TForm)
前面也就差不多了

Answer 2

然后在implementation后面添加函数的实现体
======================================
未添加自定义函数的内容
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
   Caption:='Caption';
end;end.
=============================================
添加了一个返回类型为string的无参数函数adddata
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  function adddata:string;
var
  Form1: TForm1;implementation{$R *.dfm}
function adddata:string;
begin
result:='aaa';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
   Caption:='Caption';
end;end.

Answer 3

xzhzh (zxz) ,你真遇到僵哥这好人了.哈.结贴哦.

Answer 4

unsigned(僵哥)  哎！先下手了！
没错！就是先定义，后使用