初学者出血100分，急待答案(100分)

O

oldfuu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-05

• #1

我有一段源码，使用了一个TCUSTOMLISTBOX的衍生控件Txxxlistbox（但我没有）。
源码中有如下片断：
xxxlistbox:Txxxlistbox;
....
....
xxxlistbox.List[1][0]:=......
//string
由于Tcustomlistbox并没有List属性，请问如何修改TCUSTOMLISTBOX来完成LIST?
如下为何不行？ property List: array[0..10,0..10] of string read...write...;

 

L

Lera

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-05

• #2

可用ITEMS属性?

 

S

star.yu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-05

• #3

我认为：
你首先要把 array[0..10,0..10] of string 类型 定义成一个类型 如：

type TArrayList=array[0..10,0..10] of stirng

......
试一下吧！

 

Q

qzq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-05

• #4

同意star.yu

 

O

oldfuu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-06

• #5

谢谢star.yu,你的意见是对的。但我还没有最后调通，还要请教
type TArrayList=array[0..10,0..10] of stirng

function Setflist(I1: Integer;I2:Integer):string;
function Getflist(I1: Integer;I2:Integer):string;
property List[I1:Integer;I2:Integer]:Tarraylist
read GetFlist write SetFlist;
最后一行报错Incompatible types

抱歉是初学者，请多指教。

 

I

Iknow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-06

• #6

function Setflist(I1: Integer;I2:Integer):string;
function Getflist(I1: Integer;I2:Integer):string;

这两个的返回值都是string, 而你定义的类型是tarraylist, 当然incompatible了

property List[I1:Integer;I2:Integer]:Tarraylist
read GetFlist write SetFlist;

将两个函数的返回值改成tarraylist

 

X

xie ke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-06

• #7

Iknow说的没错, 同意

 

O

oldfuu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-09

• #8

多人接受答案了。