Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Как проверить существование таблицы в базе?

Автор: Alex 1.1.2005, 23:42

Код


function ExistsTable(DB : TIBDatabase; Name: String): Boolean;
// Проверка существования таблицы с именем Name в базе
var
  lst: TStringList;
begin
  Result:= False;
  if (Name = '') or (not DB.Connected) then Exit;
  lst:= TStringList.Create;
  try
    DB.GetTableNames(lst, False);
    lst.CaseSensitive:= False;
    Result:= lst.IndexOf(Name) <> -1;
  finally
    lst.Free;
  end;
end;