Error en GetTableNames

[Caro]

Hola a todos


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


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

[Casimiro Notevi]

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

[roman]

creo que el error esta en mi variable de tipo TStrings

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

[Caro]

Lo siento estoy utilizando access

Mil Gracias de nuevo Roman con TStringList me funciono todo correctamente

Saludos