Как скопировать stringList'ы?

[TwiX]

Допустим у меня есть a:TStringList и b:TStringList.
Как сделать чтобы b стал точно таким же как a?

[spamer]

Ну например вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b : TStringList;
  i : Integer;
begin
  a := TStringList.Create;
  b := TStringList.Create;

  a.Add('111');
  a.Add('222');
  a.Add('333');

  for i := 0 to 2 do
    begin
      b.Insert(i,a.Strings[i]);
      Memo1.Lines.Add(b.Strings[i]);
    end;
  a.Free;
  b.Free;
end;

[Пепел Феникса]

TStrings.AddStrings

[ArtInt]

А если попробовать через метод Assign.
P.S. Точно не помню можно так делать для TStringList, если что поправьте.

[SERG1980]

 var a,b:tstringlist;
b.Assign(a);

[Stilet]

spamer

Чеж неоптимально так:

b.text:=a.text;

И делов...

[spamer]

Сообщение от Stilet

Чеж неоптимально так:

b.text:=a.text;

И делов...

Сразу чето не сообразил