怎么样在delpih自定义一个函数(30分)

L

lwsi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-11

• #1

我想在form1定义一个函数，因为要多处用到以下几句话
begin
Form3.Image1.Picture.LoadFromFile(filename);
form3.Image1.Height:=image1.Picture.Height;
form3.Image1.Width:=image1.Picture.Width;
end;
filename我已定义为全局变量的了，应该在什么地方添加些东西，
像函数声明之类的，函数要不要带上参数(我是不想要的，因为没什么参数要传递)

 

X

xiao_min

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-11

• #2

procedure test;
begin
Form3.Image1.Picture.LoadFromFile(filename);
form3.Image1.Height:=image1.Picture.Height;
form3.Image1.Width:=image1.Picture.Width;
end;

以后调TEST就可以了。。。

 

S

snappy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-11

• #3

wl

 

L

lwsi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-11

• #4

我试过xiao_min的方法，有如下错误
Undeclared identifier:'image1'
Missing opertor or semicolon
我是在implementation下面加的，在别的程序之前。

 

X

xiao_min

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-11

• #5

唉，不想说了。。。

 

W

wsye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-11

• #6

xiao_min的方法相当于全局函数的方法。
也可以用成员函数形如：procedure Form3::test;
你上面说的只是语法错误，不是方法错的问题

 

X

xiao_min

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-11

• #7

to wsye:
如果是全局函数，那么还要在INTERFACE中声明，那么才可以在其他UNIT中调用，
如果不声明，那么只能在PROCEDURE　TEST；这个函数之后的地方，且是本UNIT可调用

 

W

wsye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-11

• #8

是啊。不过不管用什么函数都应该可以解决原来的问题吧。呵呵，不知解决否

 

L

lwsi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-11

• #9

多人接受答案了。