|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Table1.TableName->Combobox1.items
Здраствуйте.Вопросик такой.Необходимо отобразать список всех таблиц в выпадающем списке.кол-во такблиц не ограничено
|
#2
|
||||
|
||||
Код:
var list:Tstrings; begin Database1.GetTableNames(list,False); |
#3
|
|||
|
|||
Как закинуть его теперь в комбобокс.
я пишу combobox1.items.add(list) на так не катит |
#4
|
||||
|
||||
Код:
ComboBox1.Items.AddStrings(list); |
#5
|
|||
|
|||
Прописал все как вы сказали.
Код:
procedure TForm1.Button5Click(Sender: TObject); var list:Tstrings; begin Database1.GetTableNames(list,false); ComboBox1.Items.AddStrings(list); end; Делай так для проверки передает ли database1 имена таблиц в list. Код:
memo1.lines.addstrings(list); |
#6
|
||||
|
||||
Код:
var list:Tstrings; begin list:=TStringList.Create; Database1.GetTableNames(list,false); ComboBox1.Items.AddStrings(list); list.Free; end; |
#7
|
|||
|
|||
я не отказываюсь думать,но проблема в том что я в данной теме мало что понимаю
|