如生成txt文件内容格如
AAAAA BBBBB CCCCCC
AAAAA BBBBB CCCCCC 
AAAAA BBBBB CCCCCC
AAAAA BBBBB CCCCCC
在一个数据集中循环生成txt,如何调整文件指针生成如上行列格式

解决方案 »

  1.   

    就是一个数组中的数据要生成写入TXT中,每行20行数据大于第20行就分一列,就这样依次类推
      

  2.   

    数据生成TXT,分行列,如3行3行这样生成
      

  3.   

    寫入一筆資料var
      ii: integer;
      lnText: string;
      fileVar: TextFile;
    begin
      lnText := '';
      AssignFile(fileVar, YourfileName);
      with dataset do
      begin
        while not eof do
        begin 
          for ii := 0 to fieldList.Count - 1 do
            lnText := lnText + FillChar(Fields[ii].asstring,Fields[ii]).Size,' ');//固定長度
          Writeln(fileVar, lnText);
          next;
        end;
      end;
    end;
      

  4.   

    字段间加入TAB键值,自己查一下Tab的键值
      

  5.   

    把日志文件写入.txt,并且取当前时间和日期为文本文件名:
    procedure TFllj.MemoRiZhiChange(Sender: TObject);
    var
       LLMemo:Tstringlist;  ttime:string;
    begin
       if MemoRizhi.Lines.Count>100 then
       begin
         try
          LLMemo:=Tstringlist.Create;
          //LLMemo.LoadFromFile('LiuLiangMemo.txt');
          LLMemo.Append(MemoRizhi.Lines.Text);
          //LLMemo.SaveToFile('LiuLiangMemo.txt');
          ttime:=formatdatetime('yyyymmddhhmmss',now);
          LLMemo.SaveToFile(ttime+'.txt');
          MemoRizhi.Clear;
         finally
          //LLMemo:=nil;
          LLMemo.Free;
       end;
       end;
    end;
    *******************************************************
    格式不清楚,直接写入不知会怎样?
      

  6.   

    我觉得用tstringlist比较方便。