Error en GetTableNames
 

Hola a todos


Quiero saber si existe una tabla determinadada en mi base de datos, lo hice de la siguiente manera

Código Delphi [-]
function existeTabla(tabla:String):Integer;
var
  tablas:TStrings;
  existe,i:Integer;
begin
    existe:=0;
    tablas:=TStrings.Create;
    datamodule.basedatos.GetTableNames(tablas,FALSE); //Aqui el error
    FOR i:=0 TO tablas.Count-1 DO
      IF tablas[i]=tabla THEN
      begin
         existe:=1;
         break;
      end;
    result:=existe;
end;

pero me marca el siguiente error Abstract Error, creo que el error esta en mi variable de tipo TStrings que recibe GetTableNames, no entiendo que estoy haciendo mal cualquier idea o sugerencia u otra forma de hacerlo se los agradecere mucho.

Utilizo Ado y delphi7

Creo que te falta decir lo principal: base de datos que usas

Pues sí, el error está ahí y no en la línea que indicas. TStrings no es una clase de la que puedas crear instancias. Debes usar alguno de sus descendientes, muy posiblemente TStringList.

Dado que el tema realmente no es de conexión con bases de datos, muevo el hilo al foro OOP.

// Saludos

Lo siento estoy utilizando access

Mil Gracias de nuevo Roman con TStringList me funciono todo correctamente

Saludos