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); 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