Таблици в ListBox

[DimOn4Ik]

У если я знаю алиас , но работать мне нужно с разными таблицами как мне их добавить в ListBox..

потом при выборе буду делать Table1.TableName:=ListBox1.Items;

такое возможно?

[vovk]

Можно просто полный путь добавлять

PS а да если алиас есть, то в Databasename его записываем, а в листбоксе только имена таблиц, или как говорил полный путь к папке в Databasename и имена таблиц, или в листбоксе хранить полный путь к файлу. В общем как нравится

[DimOn4Ik]

А можно как-то расширение файла убрать? в ListBox или FileListBox?

[vovk]

А в чём проблема? пишите в листбоксе без расширения, должно работать и так, или
Table1.TableName:=ListBox1.Items.St rings[ListBox1.ItemIndex]+'.db';

я же правильно понял Paradox?

[DimOn4Ik]

да paradox...ток как мне его сначала загрузить в ListBox.. я загружал имена файла из определенной директории...отображаются они *.db

[vovk]

как список файлов формируется?

[DimOn4Ik]

Вот какая задача...
Нужно разработать программу тестер.. было бы всё хорошо если бы программа была с одним тестом..а так их должно быть много,на разные темы..хотелось бы организовать все на бд..так как очень удобно..ну вот проблема в том что все тесты в одну таблицу не засунеш) .. Как быть?

[vovk]

В общем по теме добавлять можно так

var F: TSearchRec;
    i: integer;
begin
ListBox1.Items.clear;
i := FindFirst('D:\projekt\vod_2007_new\*.db',faAnyFile,  F);
while i=0 do
 begin
if  (f.Attr and faDirectory <> faDirectory) then
  ListBox1.Items.Add(ChangeFileExt(ExtractFileName(F.Name),''));
  i := FindNext(F)
 end;
FindClose(F);
end;

использовать

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
Table1.Close;
Table1.TableName:=ListBox1.Items.Strings[ListBox1.ItemIndex];
Table1.Open;
end;

про Databasename не забываем.

ПО поводу последнего поста, завязывайте с парадоксом и вообще с BDE, пробуйте хотябы с Access.

[DimOn4Ik]

vovk,спасибо!