Código
begin
try
S := TStringList.Create;
GetTableNames('Nome_do_Alias','*.db',False, False, S);
Memo1.Text:=S.Text;
finally
S.Free;
end;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009