Текущий архив: 2004.04.18;
Скачать: CL | DM;

Вниз

Paradox: список таблиц   Найти похожие ветки 

← →
ice_man   (2004-03-18 15:38) [0]

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

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

---

← →
DenK_vrtz ©   (2004-03-18 15:42) [1]

session.GetTableNames

---

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

Спасибо!

---

← →
Kadr ©   (2004-03-18 15:54) [3]

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;

---

Страницы: 1 вся ветка

Текущий архив: 2004.04.18;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.046 c