| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Paradox: список таблиц [Paradox]

ice_man ©   (2004-03-18 15:38:00) 

Здравствуйте!

Подскажите, пожалуйста, как составить список таблиц, которые располагаются по указанному пути?

---

Kadr   (2004-03-18 15:54:00) [1]

var
st:Tstrings;
sr:TSearchRec;
YourPath:string;
begin
SelectDirectory('1212','c:\',YourPath);
if FindFirst (YourPath+'\*.db',faAnyFile,sr)=0 then
begin
st:=TStringList.Create;
repeat
  St.Append(sr.Name);
until FindNext(sr)<>0;
end;
FindClose(sr);
st.Free;
end;

---

ice_man   (2004-03-18 15:45:00) [2]

Спасибо!

---

DenK_vrtz   (2004-03-18 15:42:00) [3]

session.GetTableNames

---

Наверх