导出txt档的问题

Question

现在需要将数据库的资料导成txt档案
  
有个需求是 需要 设定一个文件大小的上限 如 10M导出时超过10M 保存然后产生新的txt档
导出的时候如何判断txt档大小是否超过10M呢?还请指教，谢谢！

Answer 1

百度上搜的：大概有这些方法可以获得文件大小  
      FileSizeByName（需要引用IdGlobal单元）  
      GetFileSize  
      FileSize（不能获得正在使用的文件大小）  
      FileSeek  
      TFileStream.Size  
   
  下面是使用例子  
  1。FileSizeByName（需要引用IdGlobal单元）  
  begin  
      if   OpenDialog1.Execute   then  
      begin  
          ShowMessage(IntToStr(FileSizeByName(OpenDialog1.Filename)));  
      end;  
   
  2。GetFileSize  
  var  
      FileHandle:integer;  
  begin  
      if   OpenDialog1.Execute   then  
      begin  
          FileHandle   :=   FileOpen(OpenDialog1.FileName,   0);  
          ShowMessage(IntToStr(GetFileSize(FileHandle,   nil)));  
          FileClose(FileHandle);  
      end;  
   
  3。FileSize（不能获得正在使用的文件大小）  
  var   f:   file;  
  begin  
      if   OpenDialog1.Execute   then  
      begin  
          AssignFile(f,   OpenDialog1.FileName);  
          Reset(f,   1);  
          ShowMessage(IntToStr(FileSize(f)));  
          CloseFile(f);  
      end;  
   
  4。FileSeek  
  var  
      FileHandle:integer;  
  begin  
      if   OpenDialog1.Execute   then  
      begin  
          FileHandle   :=   FileOpen(OpenDialog1.FileName,   0);  
          ShowMessage(IntToStr(FileSeek(FileHandle,0,2)));  
          FileClose(FileHandle);  
      end;  
   
  5。TFileStream.Size  
  var  
      FS:   TFileStream;  
  begin  
      if   OpenDialog1.Execute   then  
      begin  
          FS   :=   TFileStream.Create(OpenDialog1.FileName,   fmShareDenyNone);  
          ShowMessage(IntToStr(FS.Size));  
          FS.Free;  
      end;另在IdGlobalProtocols中有个FileSizeByName()的函数。

Answer 2

写到流里面，流的size就可以判断大小

Answer 3

用流处理,size属性就是大小了