Extraer campos

[ecfisa]

Empezado por dtomeysoto

ummm al parecer no me expliqué bien.

Necesito para cualquier consulta que esté almacenada en un TADOQuery extraer los nombres de los campos pero con la tabla delante (NOMBRE_TABLA.NOMBRE_CAMPO) como puse en primer post.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
   for i:= 0 to  ADOQuery1.FieldList.Count - 1 do
    // Nombres de los campos con la tabla delante en Memo.
     Memo1.Lines:= Add('NOMBRE_DE_TABLA.' + ADOQuery1.FieldList.Fields[i].FieldName);
end;

Saludos.