一个Tstringlist对象，如何才能把值赋给另外一个Tstringlist对象，是复制一份，(50分)

G

ggb1999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-17

• #1

122

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-17

• #2

试试这样：
s1.Assign(s2);

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-18

• #3

s2.addstrings(s1.strings)，好像是这样吧

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-18

• #4

Assign
如果用 addstrings 应该先 clear

 

P

porsche

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-18

• #5

procedure TForm1.Button1Click(Sender: TObject);
var s1,s2:Tstringlist;
begin
s1:=Tstringlist.Create;
s2:=Tstringlist.Create;
s1.Text:=s2.Text
end;

 

D

dz2050

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-18

• #6

tstrings.addstrings

 

Q

QQ989753

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #7

var
strlist1,strlist2 : TStringList;
begin
strlist1 := TStringList.Create;
strlist2 := TStringList.Create;
strlist1.Clear;
strlist1.Add('12');
strlist1.Add('23');
strlist2.Assign(strlist1);//这样可以
strlist2.AddStrings(strlist1);//这样也可以
strlist2.Text := strlist1.Text;//这样还可以
end;