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]

Спасибо!

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;

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