Crear tabla paradox en ejecucion

[Kamael]

Quiero crear tablas en ejecucion. El nombre de la tabla lo doy a traves de un campo edit.Lo que quiero hacer es que al introducir un nombre busque si existe y en caso contrario que la cree. Crear la base de datos se hacerlo lo que no se es como comprobar si existe la base.

Más o menos esto es lo que hago. Me falta 'If not Table.Exists...' con el edit1.text.

 
with table.Create(nil) do
try
DatabaseName := 'DBDemos' ;
TableName := Edit1.Test ;
TableType := ttParados ;
//
Creo los campos
......
//
CreateTable ;
Finally

[[eduarcol]]

la tabla es un archivo comun y silvestre, podrias buscarlo en el fileexists

Código Delphi [-]
if FileExists(Edit1.Text) then

[*Caro*]

Hola Kamael, para ver si una tabla existe, puedes utilizar el procedimiento GetTableNames de tu componente DataBase, así recuperas todas las tablas que tienes y despues buscas.

Código Delphi [-]
var
 slTablas : TStringList;
begin
 slTablas := TStringList.Create;
 Database1.GetTableNames(slTablas);

 if slTablas.IndexOf(Edit1.Text)<>-1 then
  showmessage('La tabla existe');

Saluditos

[roman]

Empezado por Kamael

Me falta 'If not Table.Exists...'

Y, ¿por qué te falta?

Empezado por Manual de Delphi

Exists property (TTable)

Description

Read Exists at runtime to determine whether a database table exists. If the table does not exist, create a table from the field definitions and index definitions using the CreateTable method.

This property is read-only.

// Saludos

[Kamael]

Gracias por vuestras respuestas. Aún no he podido ponerlo en practica pues estoy un poco fastidiado y a la verdad no tengo ganas de nada. De todas formas cuando me recupere lo pondre en practica.
Un saludo a todos y muchas gracias por contestarme.