能不能定义一个数组函数 且这个返回的函数值也是数组！！(15分)

G

gutnc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-25

• #1

如：function channelname : array[0..12] of string;

function Tform.channelname :array[0..12] of string;
a:array[0..12] of string;
begin
Result := a
end;
请问高手们：怎样来写上面这段程序请指出

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-25

• #2

可以这样
Type AStr = array[0..12] of string;

function Tform.channelname : AStr;
a:AStr;
begin
Result := a
end;

 

金

金山大侠

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-25

• #3

以下代码可以实现
type str_array=array[0..12] of string;

function addstring(str:str_array) :str_array;
begin
str[0]:='aaa';
str[1]:='bbb';
Result:=str;
end;

 

D

dirk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-25

• #4

我更喜欢function addstring(str:str_array) ointer;这种写法。

function addstring(str:str_array) ointer;
begin
str[0]:='aaa';
str[1]:='bbb';
Result:=str;
end;

 

G

gutnc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-25

• #5

AStr = array[0..1] of string;//type
FChannel : AStr; //1行
function GetChannel : Astr;//2
procedure SetChannel: Astr;//3
property Channel : AStr read GetChannelName write SetChannel//4
这是yostgxf,编写 的方式在第四行就不能执行下去了
楼上几位仁兄：谢谢你们热心的帮忙！你们的程序，我还没有调试过
不过，我想你们的那种写法应该都行对的
问题就是：现在我要开发一个控件，而这个控件的属性在调试时提示不能为类型定义
管他的，我先一个给你们2分，对不起各位了，我现在是没有积分了，如果有都给你们

 

S

SGC_PSHY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-26

• #6

抠门[]