Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.16;
Скачать: CL | DM;

Вниз

Как работать с невизуальным TListItems   Найти похожие ветки 

 
Yuri Btr ©   (2002-09-03 11:24) [0]

Ув. мастера, в Form1Create создаю экземпляр
l1:=TListItems.Create(ListView1);
где l1:TListItems;
И при добавлении Items в L1 у меня они добавляются и в ListView1
тоже, но мне нужно обработать несколько тысяч Items, и естественно всё это дело тормозит. Можно ли как нибудь сделать добавление Items в L1 а по окончании просто присвоить их ListView1 (что то типа ListView1.Items:=l1) ?
Я так думаю надо при создании писать не l1:=TListItems.Create(ListView1) а l1:=TListItems.Create(self) ? Или нельзя создать отдельный TListItems не связав его с конкретным ListView ?

Заранее спасибо.


 
Виктор Щербаков ©   (2002-09-03 11:27) [1]

TListItems.BeginUpdate
TListItems.EndUpdate


 
Yuri Btr ©   (2002-09-03 11:34) [2]

to Виктор Щербаков ©
Правда и чего это я забыл про BeginUpdate/EndUpdate

Но всё таки, если указать l1:=TListItems.Create(nil), то почему-то вылетает Exception при попытке добавить новую запись!


 
Виктор Щербаков ©   (2002-09-03 11:38) [3]


> Но всё таки, если указать l1:=TListItems.Create(nil), то
> почему-то вылетает Exception при попытке добавить новую
> запись!


Смотри в исходнике.
Чего ж ты хочешь, если Owner = nil?

function TListItems.Add: TListItem;
begin
Result := Owner.CreateListItem;
ListView_InsertItem(Handle, CreateItem(Count, Result));
end



Страницы: 1 вся ветка

Текущий архив: 2002.09.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
1-50724
Гончий
2002-09-05 10:24
2002.09.16
Как сделать программу Trial ?


1-50701
BDRON
2002-09-05 08:03
2002.09.16
Сохранить большой объем текстовых данных в файл


1-50833
Dmitry1
2002-09-04 09:54
2002.09.16
Аналог функции барсика - format


1-50697
Колянычч
2002-09-05 07:13
2002.09.16
Delphi 3 -> Delphi 4


3-50627
Soft
2002-08-24 15:55
2002.09.16
Самогенерация SQL запроса