怎么解决两个TStringList的item对应关系？(10分)

代

代码雪儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #1

var StrsA,StrsB:TStringList;
i:integer;
begin
StrsA:=TStringList.create;
StrsB:=TStringList.create;
//开始添加对应关系
for i:=0 to 100 do begin
StrsA.additem(intTostr(i));
StrsB.additem(intTostr(i));
end;
//这时候StrsA和StrsB是一一对应关系
//我不想用这种方法来对应，有没有别的办法？
end;

 

F

Flintstone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #2

你添加的时候，是同一顺序，两个Stringlist的顺序是一样的啊。
strsA.strings=strsB.strings啊。

 

X

xeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #3

用TList类实现，定义一个结构
type
TMyRecord = record
i:integer;
j:integer;
end;
TList类对象的成员就是 TMyRecord 类型变量

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #4

一个StringList就可以满足你的要求，如果你只是要两个一一对应的话
可以用 = 号隔开
或者用AddObject的方式。
for i:=0 to 100 do begin
StrsA.additem(intTostr(i) + '= StrsB' + intTostr(i));
end;
那么 StrsA.Names为“=”号左边部份， StrsA.Values[StrsA.Names]为右半部份

 

代

代码雪儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #5

多人接受答案了。