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

[TwiX]

Так выдаёт ошибку при освобождении:

var
 asd,asd2:TStringList;
begin

asd:=TStringList.Create;
asd.Add('asd');
asd2:=TStringList.Create;
asd2:=asd;
asd2.Free;
asd.Free;

end;

[russian-stalker]

Так лучше:

var
 asd,asd2:TStringList;
begin
asd2:=TStringList.Create;
asd:=TStringList.Create;
asd.Add('asd');
asd2:=asd;
asd2.Free;
asd.Free;
end;

[uberchel]

Правильно так:

var
 asd,asd2:TStringList;
begin
asd:=TStringList.Create;
asd2:=TStringList.Create;
asd.Add('asd');
asd2.Text:= asd.Text;
asd2.Free;
asd.Free;

[mosq]

ваще-то

asd2.AddStrings(asd);

[uberchel]

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

ваще-то

asd2.AddStrings(asd);

Понятно, что так тоже можно, да много вариантов, но при asd.text:= asd.text - копируется весь текст сразу, а asd2.addstring(asd) - построчно, так что если этот вариант медленнее будет выполнятся при большом количестве строк !