Imprimir texto en archivo *.txt

[ecfisa]

Hola exequielmatias1.

Si buscar guardar todos los campos del registro seleccionado actualmente en el TADOQuery, otra opción es:

Código Delphi [-]
procedure SaveAsText(Qry: TADOQuery; const aFileName: TFileName);
var
  i   : Integer;
  str : string;
begin
  with TStringList.Create do
  try
    for i := 0 to Qry.FieldCount-1 do
       str := str + Qry.Fields[i].AsString + ' ';
    SetLength(str, Length(str) -1);
    Text := str;
    SaveToFile(ChangeFileExt(aFileName, '.TXT'));
  finally
    Free;
  end;
end;

Llamada ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    SaveAsText(ADOQuery1, SaveDialog1.FileName);
end;

Saludos