CheckListBox(50)

O

ortega

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-08

• #1

在ChekListBox中怎么存储一个表中的两个字段，又该怎么读呢

 

H

hanpengshan_00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-08

• #2

不明白楼主要什么tchecklistbox有很多属性items属性可以存贮字符串，还不够吗？additem()方法可以存贮一个对象+字符串，还不够吗？这个对象可以是任何一个类型甚至又是对象，试问楼主，你还需要什么?

 

T

th_lmy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-08

• #3

C#可以用items的value和text,delphi7及以下的都不支持，不知以上的有没有

 

叶

叶不归

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-08

• #4

type PRec = ^TRec; TRec = record Field1: string; //字段1 Field2: Integer; //字段2 end;var Rec: PRec;begin New(Rec); Rec^.Field1 := 'value1'; Rec^.Field2 := 2; CheckListBox.Items.AddObject('text', TObject(Rec)); //存储 ShowMessage(PRec(CheckListBox.Items.Objects[0]).Field2); //读取end;

 

O

ortega

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-09

• #5

叶不归，我就是那样做的，程序跑不起来，你自己试一下，有结果了告诉我，QQ; 411420007

 

H

hanpengshan_00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-09

• #6

TRec = record Field1: string; //字段1 Field2: Integer; //字段2 end; 如果用new的话，field1指定长度,Field1: string[20];如果直接使用记录变量，不使用new，可以不定义长度