两个Tstringlist 变量,现在我想把其中一个变量的字符串除第一行之外的其它行附加到另外一个Tstringlist字符串的后面Tstringlist1:
11111111
2222222222Tstringlist2:
aaaaaaaaa
999999999
8888888888合并后:
11111111
2222222222 
999999999
8888888888

解决方案 »

  1.   

    stringlist2.delete(1)stringlist1.addstring(stringlist2) //具体是add还是addstring你看看
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    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;