[[oscarac]]

yo hacia algo como esto

Código Delphi [-]
 _FileData := 'Envios\CD' + frmMain._Serie + FormatDateTime('ddmmyyyy', dtFechaIni.Date) + '-' + FormatDateTime('ddmmyyyy', dtFechaFin.Date);
if chbMovimiento.Checked then
  Begin
    StrSql := 'Select C.*, d.* ' +
              'From (tblconsumoc C with (nolock) ' +
              'Left Join tblConsumod D with (nolock) on (C.TDC = D.TDC and C.doc = d.DOC)) ' +
              'Where C.F_DOC Between ' + QuotedStr(FormatDateTime('DD/MM/YYYY', dtFechaIni.Date)) + ' and ' +
              QuotedStr(FormatDateTime('DD/MM/YYYY', dtFechaFin.Date)) +  ' and Isnull(D.TDC, ' + QuotedStr('') + ') <> ' + quotedstr('') +
              ' order by C.TDC, C.DOC';
    qryTemporal.Close;
    qryTemporal.SQL.Clear;
    qryTemporal.sql.Add(StrSql);
    qryTemporal.Open;
    qryTemporal.First; // Por siacaso
  ExportedData := TStringList.Create;
    try
      while not qryTemporal.Eof do
      begin
        Line := '';
        for I := 0 to Pred(qryTemporal.FieldCount) do
          Line := Format('%s%s¦', [Line, qryTemporal.Fields[i].Value]);
        ExportedData.Add(Line);
        qryTemporal.Next;
      end;
      ExportedData.SaveToFile(ExtractFilePath( Application.ExeName ) + _FileData + '.txt')
    finally
      ExportedData.Free
    end
  end;