🚀 go-pugleaf

Remy Thanks^(n+1),
Your source here is, work very fine & success.

void __fastcall TMain::BitBtn1Click(TObject *Sender)
{
    int iSourceFile = FileOpen(Edit1->Text, fmOpenRead
    | fmShareDenyWrite);
    if(iSourceFile != -1)
    {
       BYTE hBuf[50000];
       int iNum = 1;
       do
       {
          int iRead = FileRead(iSourceFile, hBuf, 50000);
          if(iRead != -1)
          {
             if(iRead == 0) break;
             AnsiString ext = Format("%.3d", ARRAYOFCONST((iNum)));
             ++iNum;
             int iNewFile = FileCreate(Edit2->Text + ext);
             if(iNewFile != -1)
             {
                if(FileWrite(iNewFile, hBuf, iRead) != iRead)
                FileClose(iNewFile);
             }
          }
       }
       while(true);
       FileClose(iSourceFile);
    }
}

Remy Lebeau (TeamB) wrote:
 > "Safari" <Safari@alloymail.com> wrote in message
 > news:3E955473.6000807@alloymail.com...
  >
 > No, you're not.  I've posted my code twice for you now, but your code, as
 > you've posted it here, still does not resemble my code at all. 
You're off
 > doing your own things.  My code does not use TFileStream and sets aside a
 > fixed-sized buffer and then read/wrote the files in full 50000b 
blocks at a
 > time.  Your code, on the other hand, is using TFileStream and is
 > reading/writing the files one byte at a time instead.