Копирование объектов TStringList

[alien308]

С ужосом узнал что нет копирования объектов. Всё ручками? Где гуманизм
Или всё таки ныне можно скопировать?
Как правильно копировать отсортированный TStringList? Сначала построчно в не отсортированную копию, а потом поставить Sorted в True или сразу фигачить в отсортированную копию? При установке Sorted в True сортировка происходит автоматически или надо ручками вызывать?

[pupsik]

С ужосом узнал что нет копирования объектов

а это как? контекстное меню и пунктик. Дык и он, вроде, ручками надо ))

всё таки ныне можно скопировать?

а ранее значит не было?

Наследование - слышал... много чего ещё слышал. А вот что вы имеете в виду под копированием? Этого не понял.

[Ichthyander]

Может это
Component1.Assign(Component2) ???

[alien308]

В си крест на крест, не к ночи помянуто, есть присваювающий конструктор. Он выполняется при присваивании и копирует содержимое одного объекта в другой. А тут при присваивании просто копируется указатель/ссылка (как правильно?), получается один объект с двумя именами. Изменяя объект с одним именем мы тут же меняем объект с другим именем. Ведь он один и тот же. А имени два. Псевдоним называется.

Добавлено спустя 5 минут 13 секунд:
Assign -- не нашёл такого метода в TStringList
Завтра очнусь в коде попробую.

[pupsik]

alien308 простой пример:

кидаем 3 ListBox и "чудим"

Код: Выделить всё

procedure TForm1.FormCreate(Sender: TObject);
var
  i : integer;
begin
  With ListBox1.Items do
  begin
    BeginUpdate;
    for i := 0 to 1000 do
      Add('Items - ' +inttostr(i));
    EndUpdate;
  end;
  ListBox2.Items.Assign(ListBox1.Items);
  ListBox3.Items := ListBox1.Items;
end;  

Есть нюансы. Но это не важно ведь?

[Ichthyander]

Assign -- не нашёл такого метода в TStringList

Плохо искали. Нажимаете после Вашего имени объекта класса точку "." => "a", "s"... и редактор кода Lazarus Вам подскажет

[alien308]

Спасибо ответившим, BeginUpdate, EndUpdate, что делают? Всегда Add ,без них делал.

[wadman]

BeginUpdate, EndUpdate, что делают?

Если жамкнуть по нему мышкой с ctrl, то можно посмотреть, что они делают:

Код: Выделить всё

Procedure TStrings.BeginUpdate;

begin
   if FUpdateCount = 0 then SetUpdateState(true);
   inc(FUpdateCount);
end;



Procedure TStrings.EndUpdate;

begin
  If FUpdateCount>0 then
     Dec(FUpdateCount);
  if FUpdateCount=0 then
    SetUpdateState(False);
end;

А затем путем нехитрых поисков по коду можно увидеть, что при каждом изменении списка вызывается это:

Код: Выделить всё

procedure TStringList.Changed;

begin
  If (FUpdateCount=0) Then
   begin
   If Assigned(FOnChange) then
     FOnchange(Self);
   FPONotifyObservers(Self,ooChange,Nil);
   end;
end;

[Лекс Айрин]

Вообще, эти два метода нужны чтобы набрать изменения, а потом их все разом применить. Таким образом уменьшается мерцание окна... ну и тормоза, заодно. Собственно, из названий это вполне понятно.

[alien308]

Для тех кто в танке непонятно. Спасибо.

[Лекс Айрин]

alien308, да не за что. Точно так же поступают при любом достаточно сильном манипулировании с контекстом.

[mig-31]

Копировать можно через Assign

Код: Выделить всё

StringList2.Assign(StringList1);

При копировании должны скопироваться все свойства.