Question

delphi怎样调用自定义函数

var
Form1: TForm1;
function aaa(abc:string):boolean ;

implementation

uses Unit2, Unit3, Unit4;

function aaa(abc:string):boolean;
begin
application.MessageBox('你好','d',16);
end;

aaa是的定义的一个函数名，我想在窗体的单击事件中调用，怎么写？

Answer 1

在窗体事件中找到单击事件，然后双击，之后就可以在下面添加你的aaa函数。

Answer 2

Function aaa(abc: String): boolean;
Begin
application.MessageBox( PChar(abc),'你好', 16);
End;

Procedure TForm1.FormClick(Sender: TObject);
Begin
aaa('呵呵');
End;