Comprobar si una tabla existe.

[BECERRA]

Estimados compañeros:
Alguno de vsosotros podría decirme como implementar un procedimiento en delphi, que me permita comprobar si existe una tabla determinada en una BD de Interbase. Actualmente he creado un procedimiento similar pero que comprueba si extiste un campo y si no es así lo creo, el procedimiento es el siguiente:

if Fdatos.Articulos.FindField('PRODUCTOPRO')=nil then
begin
ibsql1.Close;
ibsql1.SQL.Clear;
ibsql1.SQL.Add('ALTER TABLE ARTICULOS ADD "PRODUCTOPRO" VARCHAR(50)');
ibsql1.ExecQuery;
FDatos.Ttienda.CommitRetaining;
messagebox(self.Handle,pchar('Se ha creado el campo "PRODUCTOPRO" de la tabla "Artículos"'),'Información',MB_OK);
end;

He intentado hacer algo similar con un Ibquery pero no he sido capaz, podría decirme alguien como puedo hacerlo, tambien he pensado en crear una excepción en el activate del query pero esa solución no me convence.

Gracias de antemano y feliz 2005 a todos.

[Neftali [Germán.Estévez]]

No lo he probado, pero segun la ayuda de Delphi, el componente TIBTable posee una propiedad llamada TableNames cuya descripción es ésta:

-----------------------------------------------------------
Description

The TableNames property is an internal property used to display a list of the table and view names in the database.
-----------------------------------------------------------

Por probarla no creo que pase nada.

[BECERRA]

Muchas gracias Neftali, eso ya me sirve.