VPF::Drag&Drop на DBLookupListBox - Форум программистов

Gorets

Дата 14.7.2005, 12:47 (ссылка)

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

Загрузка ...

Новичок

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

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

да все бы было неплохо, но в ListBox нет замечательного значения KeyField, а оно очень упрощает жизнь.....

Marriage

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

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

Загрузка ...

Опытный

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

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

Запиши в базюку данные и запомни их новый ID. За тем в цикле пробегись по всем выбранным данным и сравнивай, то это поле или нет. По - другому , по-моему, никак ....

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

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

Praemonitus, praemunitus

Akella

Дата 14.7.2005, 17:20 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Используй что-то такое

Код


while not Table1.eof do
  ListBox1.AddItem(Table1.FieldByName('StringField').AsString,Pointer(Table1.FieldByName('Id').AsInteger));

вот и заполнили список вместе с KeyField
Теперь как вытащить?
Да вот так:

Код


  ShowMessage( ListBox1.Items[ Integer(ListBox1.Items.Objects[12]) ]);
  Integer(ListBox1.Items.Objects[12]) - это номер строки

Положи на форму две кнопки и список добавь этот код и посмотри, что получиться

Код


procedure TForm1.Button1Click(Sender: TObject);
Var
 i:integer;
begin
  For i:=0 to 1000 do
    ListBox1.AddItem('Строка # '+IntToStr(i),Pointer(i));

end;

procedure TForm1.Button2Click(Sender: TObject);
Var
 t:integer;
begin
  i:=12;
  ShowMessage(ListBox1.Items[Integer(ListBox1.Items.Objects[i])]);
end;

end.

Gorets

Дата 15.7.2005, 13:08 (ссылка)

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

Загрузка ...

Новичок

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

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

2dsergey : спасибо за помощь! прийдется наверно так и делать........

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