validar el nombre de una tabla

[Luis_264]

mmm pero me dice en las constantes en la coma ',' --> const permitidos= ['A'-'Z','a'-'z','0'-'9','_'];
me marca error que el operador no es valido ? :S

[[Lepe]]

Eso me pasa por escribir el código directamente en el foro, perdona.

Código Delphi [-]
function filtraNombre(base:string):string;
const permitidos = ['A'..'Z','a'..'z','0'..'9','_'];
const letras = ['A'..'Z','a'..'z'];

var i:integer;
begin
  result := EmptyStr;
    if base[1] in letras then
      for i:= 1 to length(base) do
        if base[i] in permitidos then
          result := result + base[i]
end;

Los rangos es con ".." en lugar de con guión.

Saludos

[Luis_264]

ok graxx ia sirvioo =D