Tabla que llena un query

[[gluglu]]

Código Delphi [-]
Aux_SelectSQL1 := '';
Aux_SelectSQL2 := UpperCase((DataSet as TIBDataSet).SelectSQL.Text);

for j := 1 to Length(Aux_SelectSQL2) do begin
  if Aux_SelectSQL2[j] = #13 then
    Aux_SelectSQL1 := Aux_SelectSQL1 + ' '
  else
    if Aux_SelectSQL2[j] <> #10 then
      Aux_SelectSQL1 := Aux_SelectSQL1 + Aux_SelectSQL2[j];
end;
 
Aux_Pos := 1;
while PosEx(' FROM', Aux_SelectSQL1, Aux_Pos) <> 0 do begin
  Aux_Pos := PosEx(' FROM', Aux_SelectSQL1, Aux_Pos) + 1;
end;
 
Dec(Aux_Pos);
Aux_Table  := Copy(Aux_SelectSQL1, Aux_Pos+6, PosEx(' ', Aux_SelectSQL1, Aux_Pos+6) - (Aux_Pos+6));

El nombre de la tabla lo tendrás finalmente en Aux_Table.



P.D. He obviado el código correspondiente a la declaración de variables.