Buscar por:

Buscar nome da tabela em uma query

Código

{Essa Função retorna o nome da tabela principal de uma query}

function Nometabela(sql:STRING):string;

VAR I :INTEGER;

    A :STRING;

    X :INTEGER;

begin

   X:= Length(SQL);

   FOR I:= 0 TO Length(SQL)-1 DO

   BEGIN

      IF (UpperCase(sql[I])   = 'F')AND

         (UpperCase(sql[I+1]) = 'R')AND

         (UpperCase(sql[I+2]) = 'O')AND

         (UpperCase(sql[I+3]) = 'M')AND

         (UpperCase(sql[I+4]) = ' ')THEN  X := I + 5 ;

      IF I >= X THEN

          IF (UpperCase(SQL[I]) <> #13)AND(UpperCase(SQL[I]) <> ' ')THEN

             A :=A+ SQL[I]

          ELSE

             Break;

   END;

   Result := A;

end;