VPF::ListView - заполнение из БД - Форум программистов

AntonPavlov

Дата 15.2.2011, 23:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 86
Регистрация: 28.5.2010

Репутация: нет
Всего: нет

Здравствуйте!
Пишу по поводу http://www.delphi.int.ru/articles/38/
Возник вопрос - как заполнять листвью из БД (используется SQLite, но это не суть).

Код


procedure TfrmMain.Button1Click(Sender: TObject);
var i: integer;
begin
SQLite_table:=Base.GetTable('SELECT name_categ FROM categories'); // создаем таблицу с помощью запроса
ListView1.Items.Count:=SQLite_table.Count; // сколько будет элементов
for I := 0 to SQLite_table.Count - 1 do
begin
f := SQLite_table.FieldAsString(0); присваиваем глобальной переменной f значение из БД (а f будет служить заголовком итема)
SQLite_table.Next;
end;
end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem); 
begin 
item.Caption:=f;
end;

И при этом список заполняется только первым значением из БД. В чем проблема? Заранее спасибо!

Это сообщение отредактировал(а) Rrader - 16.2.2011, 08:29

Данкинг

Дата 16.2.2011, 00:28 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Что-то мне не нравится уже то, что переменная item объявлена локально, и при этом она используется в другой процедуре. Дальше не вникал.

--------------------

There's nothing left but silent epitaphs.

AntonPavlov

Дата 16.2.2011, 01:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 86
Регистрация: 28.5.2010

Репутация: нет
Всего: нет

Пардон, она там вообще быть не должна, это моя осечка, но дела это не меняет...

northener

Дата 16.2.2011, 03:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 8
Всего: 20

Я бы высказался, но bems меня предупредил.

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Poseidon

Дата 16.2.2011, 10:05 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(AntonPavlov @ 15.2.2011, 23:54

)

И при этом список заполняется только первым значением из БД. В чем проблема?

А где у тебя заполнение списка? Должно быть как бы в теле цикла. А так цикл пробежит, переменная f поизменяется, а список не заполнится.

Да и я не навязываю, но сам лично для заполнения списков использую такую конструкцию (без переменной конечно, но с ней понятней):

Код


SQLite_table.GetFirst;
while not SQLite_table.EOF do
begin
  f := SQLite_table.FieldAsString(0);
  { добавляем в список значение переменной f }
  SQLite_table.Next;
end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

superVad

Дата 16.2.2011, 14:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 4
Всего: 15

Что то странное:

Код


ListView1.Items.Count:=SQLite_table.Count; // сколько будет элементов

Цитата(AntonPavlov @ 15.2.2011, 22:54

)

И при этом список заполняется только первым значением из БД.

Код


SQLite_table:=Base.GetTable('SELECT name_categ FROM categories');

У тебя запрос возвращает только одно поле! Да и это не создание таблицы а выборка из нее.

Вобщем даже не знаю чем помочь.

Это сообщение отредактировал(а) superVad - 16.2.2011, 14:17

Frees

Дата 16.2.2011, 14:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

Код


while not SQLite_table.EOF do
begin
  with ListView1.Items.Add do
     Caption :=  SQLite_table.FieldAsString(0);
  SQLite_table.Next;
end;

Это сообщение отредактировал(а) Frees - 16.2.2011, 14:39

--------------------

Кольцов Виктор Владимирович

AntonPavlov

Дата 16.2.2011, 20:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 86
Регистрация: 28.5.2010

Репутация: нет
Всего: нет

Frees, спасибо, но работает оно ужааасно долго....в базе очень много записей.
Я хотел как-нибудь приспособиться заполнять, как в статье, на которую ссылка дана...там все молниеносно, и с большим массивом данных.

chip_and_dayl

Дата 16.2.2011, 20:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 1
Всего: 9

Цитата

... Главным свойством здесь является OwnerData. Именно оно переводит лист в виртуальный режим. Теперь список требует от нас, что бы мы указали, сколько будет элементов. Для этого я поставил кнопку и вписал туда строку

ListView1.Items.Count:=1000;

Теперь лист знает сколько элементов.

Возможно из-за этого он дольше строит

--------------------

Фсё будет хорошо!!!

AntonPavlov

Дата 16.2.2011, 23:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 86
Регистрация: 28.5.2010

Репутация: нет
Всего: нет

Нууу, а по делу может кто еще что посоветовать?
Вот, например, как в Lingvo огромное количество слов в списке загружается молниеносно?

Keeper89

Дата 16.2.2011, 23:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

А кто тебе сказал что он их при тебе грузит?

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

AntonPavlov

Дата 16.2.2011, 23:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 86
Регистрация: 28.5.2010

Репутация: нет
Всего: нет

Намекаешь, что пока он показывает заставку, он загружает?
А когда переключаешь язык - русс>англ и наоборот - список-то моментально обновляется)))

Frees

Дата 17.2.2011, 08:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

Цитата(AntonPavlov @ 16.2.2011, 23:13

)

Frees, спасибо, но работает оно ужааасно долго....в базе очень много записей.

а почему не взять TDBGrid

Цитата(AntonPavlov @ 16.2.2011, 23:13

)

Я хотел как-нибудь приспособиться заполнять, как в статье

Код


procedure TfrmMain.Button1Click(Sender: TObject);
var
  i: integer;
begin
  SQLite_table := Base.GetTable('SELECT name_categ FROM categories'); // создаем таблицу с помощью запроса
  ListView1.OwnerData := True
  ListView1.Items.Count := SQLite_table.Count; // сколько будет элементов
end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  SQLite_table.RecNo := Item.Index;//надо перейти на запись с номером Item.Index как это сделать в SQLite_table - хз
  Item.Caption := SQLite_table.FieldAsString(0);
end;

--------------------

Кольцов Виктор Владимирович

chip_and_dayl

Дата 17.2.2011, 09:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 1
Всего: 9

Быстрее всего грузит ДБкомбобокс с Базы

Для настройки нужно указать свойство ЛистСоурс=ДатаСоурс который содержит набор данных "SQLite_table", ЛистНейм=name_categ + в запрос нужно добавить вывод ИД и прописать в свойстве ЛистКей (кажись так, рядом возле ЛистНЕйм)=ID

Добавлено @ 09:36
Я сначала грузил в комбобокс справочник товаров, но их было свыше тысячи и это длилось целых секунд 15, после того как я перешол на ДБКомбобокс, все загрузилось моментально. Фишка его в том, что он не сразу все элементы отрисовывает, а по мере прокрутки (ИМХО)

Это сообщение отредактировал(а) chip_and_dayl - 17.2.2011, 09:37

--------------------

Фсё будет хорошо!!!

Keeper89

Дата 17.2.2011, 20:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Цитата(AntonPavlov @ 16.2.2011, 23:40

)

Да, и значит грузится 2 списка. А думаешь заставка нужна для напоминания о том, что ты запустил? smile

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »