自定义函数的使用(100分)

T

tonvy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-25

• #1

我想在delphi中自定义函数，但不知道如何声明使用，希望各位前辈能举个简单
例子说明一下：
如：我想建立一个名字叫cleartext的function
用途是清空form1中edit1的文本
点击form1中的button1调用此函数
此例子简单，我想看一下delphi中自定义函数的使用，请给出详细代码过程，谢谢

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-25

• #2

function cleartext;
begin
form1.edit1.text:=''
end;

function form1.button1click(Sender: TObject);
begin
cleartext
end;

 

S

stuwe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-25

• #3

沒有返回值﹐沒必要用function
procedure cleartext﹔
begin
form1.edit1.Text:='';
end;

procedure tForm1.Button1Click(sender:tobject);
begin
cleattext;
end;

 

T

tonvy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-25

• #4

在最开始的type中，不用声明一下吗？

 

Y

yanghaijun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-25

• #5

type
TForm1 = class(TForm)

public
function cleartext:boolean;

end;

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TOBject);
begin
if ClearText then
MessageDlg('清除完毕！',mtInformation,[mbOK],0);
end;

function TForm1.ClearText:Boolean;
begin
Edit1.Text:='';
Result:=True;
end;

 

W

wangydm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-25

• #6

需要注意沒有返回值,不必用function.

 

T

tonvy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-25

• #7

stuwe说的有道理，但我在type声明的时候老有错误，帮我看看程序，应该如何声明呢？
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
procedure cleartext;
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure cleartext;
begin
form1.edit1.Text:='';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
cleartext;
end;

end.

 

S

stuwe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-25

• #8

procedure TForm1.cleartext;
begin
form1.edit1.Text:='';
end;

你也可以在定義的時候
procedure cleattext;時將光標移到該中間﹐按鍵盤的ctrl+shift+c看看就知道了

 

T

tonvy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-25

• #9

多人接受答案了。

 

T

tonvy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-25

• #10

谢谢大家的参与，我经过大家的指点，问题解决了，而且也会初步使用delphi自定义
函数了，再次向大家表示感谢[]