Главная страница
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.016 c
3-50659
wed
2002-08-26 12:40
2002.09.16
MSSQL server 2000


7-51010
VEG
2002-07-01 22:46
2002.09.16
Почему данный код не работает в Windows 95 и 98, но работает в Me


1-50847
FireStream
2002-09-04 15:10
2002.09.16
Странные глюки с размерами


1-50807
CrazyAngel
2002-09-02 21:26
2002.09.16
Access to process memory


14-50912
~Rand~
2002-08-19 23:38
2002.09.16
WinXP на Р2