两个Tstringlist 变量,现在我想把其中一个变量的字符串除第一行之外的其它行附加到另外一个Tstringlist字符串的后面Tstringlist1:
11111111
2222222222Tstringlist2:
aaaaaaaaa
999999999
8888888888合并后:
11111111
2222222222
999999999
8888888888
11111111
2222222222Tstringlist2:
aaaaaaaaa
999999999
8888888888合并后:
11111111
2222222222
999999999
8888888888
var
a,b,c : TStringList;
begin
a := TStringList.Create;
b := TStringList.Create;
c := TStringList.Create;
a.Add('111111');
a.Add('222222');
a.Add('333333');
b.Add('aaaaa');
b.Add('bbbbb');
b.Add('ccccc');
c.AddStrings(b);
c.Delete(0);
a.AddStrings(c);
ShowMessage(a.Text);
a.Free;
b.free;
c.Free;
end;