안녕하세요?
아래 예제 코드는 퀀텀그리드에서 선택된 데이터만 CVS파일로 만드는 예제입니다.

procedure dxGridToCVSFile(Sender: TdxDBGrid);
const
  Delemeter='|';
var
  F: TextFile;
  I,J: Integer;
  s: String;
begin
   if not DirectoryExists('c:temp') then ForceDirectories('c:temp');
   S:= '';
   AssignFile(F, 'c:temp'+Sender.Name+'.txt');
   Rewrite(F);
   try

   for I:=0 to Sender.SelectedCount-1 do
   begin
      if Sender.SelectedNodes[I]<>nil then
        S:= '';
        for J:=0 to Sender.ColumnCount-1 do
          S:= S +Sender.SelectedNodes[I].Strings[j] + Delemeter;
        WriteLn(F, S);
   end;

   finally
       CloseFile(F);
   end;
end;


도움되시길...