判斷資料表是否存在

Function TableExist( pConn:TADOConnection; pcTable : string ) : boolean ; overload ;
var
  tmpFldList : TStrings ;
  nLoop : integer ;
begin
  Result := False ;
  tmpFldList := TStringList.Create ;
  pConn.GetTableNames( tmpFldList, True ); // 包含系統表
  for nLoop := 0 to tmpFldList.Count - 1 do
  begin
    if uppercase( tmpFldList[nLoop] ) = uppercase( pcTable ) then
    begin
      Result := True ;
      break ;
    end;
  end;
  tmpFldList.Free ;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

  if TableExist(ADOConnection1, '富達新興') then
    showmessage('ok');
end;