[snake750]

Здраствуйте.Вопросик такой.Необходимо отобразать список всех таблиц в выпадающем списке.кол-во такблиц не ограничено

[TOJluK]

Код:

var
list:Tstrings;
begin
Database1.GetTableNames(list,False);

ну и потом из list кидай в combobox

[snake750]

Как закинуть его теперь в комбобокс.
я пишу combobox1.items.add(list) на так не катит

[TOJluK]

Код:

ComboBox1.Items.AddStrings(list);

[snake750]

Прописал все как вы сказали.

Код:

procedure TForm1.Button5Click(Sender: TObject);  
var  list:Tstrings; 
begin
Database1.GetTableNames(list,false); 
ComboBox1.Items.AddStrings(list); 
end;

[Warning] Unit1.pas(90): Variable 'list' might not have been initialized
Делай так для проверки передает ли database1 имена таблиц в list.

Код:

memo1.lines.addstrings(list);

Не работает.подскажите что сделать надо

[TOJluK]

Код:

var  list:Tstrings;
begin
list:=TStringList.Create;
Database1.GetTableNames(list,false);
ComboBox1.Items.AddStrings(list);
list.Free;
end;

Ну почему никто не хочет подумать, а ждет полного решения?

[snake750]

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