From: marcov@stack.nl   
      
   On 2005-05-11, Floris  wrote:   
   >   
   > I'm using freepascal to write text files, but it writes really slow.   
   > It looks something like this and it writes with about 300 KB per second:   
      
   var b : array [0..16383] of byte;   
      
      
      
      
   > for i:=1 to 1000 do begin   
   >   outfilename:='myname' + integertostring(i) +'.txt';   
   >   Assign (outfile,outfilename);   
   >   rewrite(outfile);   
      
   settextbuf(outfile,buf);   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)