ファイルを分割する手順です。
FPD に出力する場合は、一度 Disk に書き出してから FPD への出力処理を
したほうが簡単です。

Var
  Inf, Outf: File;
  Buf: PChar;
  RSize, WSize, FSize, ix, DCnt: Integer;
begin
  RSize := 1440000;
  AssignFile(Inf, 'FileName');
  Reset(Inf, 1);
  Try
    FSize := FileSize(Inf);
    DCnt := (FSize Div RSize) + 1;
    Buf := StrAlloc(RSize);
    Try
      For ix := 1 To DCnt Do
      Begin
        BlockRead(Inf, Buf^, RSize, WSize);
        AssignFile(Outf, 'Out' + IntToStr(ix));
        Rewrite(Outf, 1);
        Try
          BlockWrite(Outf, Buf^, WSize);
        Finally
          CloseFile(Outf);
        End;
      End;
    Finally
      StrDispose(Buf);
    End;
  Finally
    CloseFile(Inf);
  End;
End;


             98/6/17(Wed) 06:10am  BYQ05322 らせん企画の佐々木

Original document by らせん企画      氏 ID:(BYQ05322)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。