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

Вниз

Отображение большого TStringlist`а в TListBox   Найти похожие ветки 

 
leonidus ©   (2006-05-06 22:04) [0]

Мастера подскажите пожалуйста. Есть Tstringlist в нем содержится порядка 130.000 записей, и есть TListBox, нужно сделать так что бы данные из Tstringlist  отображались в TListBox`е но подгружались в него по мере необходимости (прокрутки) а не все сразу в момент инициализации приложения. Подскажите пожалуйста как это сделать. Только прошу не пинать за то, что такое большое кол-во записей отображается в визуальном компоненте, юзеры этого не испугаются т.к. это приложение - словарь с окном отображающим спосок слов как в Lingvo.


 
Kilkennycat ©   (2006-05-06 22:12) [1]

ну так пишем цикл

for i := start to start + HListBox do listbox1.add(tstringlist1[start+HListbox - i]);
где start - положение "ползунка" в стринглисте, HListBox - сколько будет отображено в листвоксе. Добавить проверку начала и конца, старт-стоп апдейта и все...


 
ЛшдлуттнСфе   (2006-05-06 22:13) [2]

что-то намудрил...
for i := start to start + HListBox do listbox1.add(tstringlist1[i]);


 
begin...end ©   (2006-05-07 08:35) [3]

Я бы использовал виртуальный ListBox. Устанавливаем его свойство Style в lbVirtual, свойство Count -- равному значению количества элементов в списке TStringList, и пишем примерно такой обработчик OnData:

procedure TMyForm.MyListBoxData(Control: TWinControl; Index: Integer; var Data: String);
begin
 Data := List[Index]
end


(здесь List -- это и есть некий "внешний" TStringList).

В результате, когда нужно будет отобразить элемент с индексом Index, автоматически будет вызываться обработчик OnData, т.е. данные в ListBox будут подгружаться по мере необходимости. Что и требовалось.



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

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

Наверх




Память: 0.47 MB
Время: 0.051 c
3-1143804426
Almikus
2006-03-31 15:27
2006.05.21
Присвоение данных полям


15-1146034195
veter
2006-04-26 10:49
2006.05.21
Диплом


6-1138039981
RBi
2006-01-23 21:13
2006.05.21
Заполнить в WebBrowser поля типа "file"


2-1146932864
дямак
2006-05-06 20:27
2006.05.21
ламерский вопросик


2-1146478023
Cat4er
2006-05-01 14:07
2006.05.21
Указатель ввода