自定义函数的问题(120分)

L

lincker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #1

在程序中的form1中自定义了一个函数
function tform1.addstring(parm1: integer; parm2: integer): string;
在前面的public中也定义了
function addstring :string;

然后在form1中引用时候
arc1:=tform1.addstring(temp,i);
编译确告诉我：[Error] ;Too many actual parameters
这是怎么回事？temp和i的数据类型都是整型，也有值。
我把调用写成
arc1:=tform1.addstring();
编译是通过了，但是参数怎么办呢？

另外，在这个addstring函数中我引用定义在public下的数组时却告诉没有声明，
应该怎么办？
望高手指教，谢谢!

 

N

newsweep

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #2

一定要同名？
既然一定要同名的話
就請用重載吧
如
function addstring(parm1: integer; parm2: integer): string; overload;
function addstring :string; overload;

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #3

在前面的public中定义
function addstring(parm1: integer; parm2: integer): string;

 

E

eric.youbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #4

函数声明的地方这样写：
function addstring(parm1: integer; parm2: integer): string;override
function addstring :string;override
如果你定义的数组和函数不再同一个类
就用Tform1.thearray...

 

F

fshrq1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #5

参数不能是temp

 

P

pingbaoshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #6

用antic_ant, 的试试

 

L

lincker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #7

哎呀，是我太弱，我以为函数还要在前面的public里声明呢，这是一个函数，不是重载。
函数的问题可以了，但是我在public里面定义的二维数组
A:array[0..2,0..6] of Integer;

在我的addstring函数里面
function addstring(parm1: integer; parm2: integer): string;
var i,n:integer;
; ; arc1:string;
begin
n:=0;
for i:=0 to 2 ;do
begin
;if tform1.A[i,parm1] <> 0 then ;
//没写tform1有错说A没声明，写了tform1编译还是这行报错[Error]Method identifier expected

 

L

lincker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #8

多人接受答案了。