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

[TiammatMX]

Empezado por ecfisa

...SaveToFile(ChangeFileExt(aFileName, '.TXT'));...

O si vas a guardar un CSV para ser usado en Excel (como es éste caso particular), te recomiendo que lo hagas así:

Código Delphi [-]
   AssignFile(atArchivo, wsNombreArchivo);
   Rewrite(atArchivo);
   Write(atArchivo,wsContenidoCSV);
   CloseFile(atArchivo);

Por que a veces, inyecta "caracteres que pueden ser confusos" y confundidos con cualquier otra cantidad de cosas excepto datos...