テキストファイルを単純にコピーする関数です。
単にコピーするなら APIを使う方が手っ取り早いですが、コピーの過程で文字
列操作をする必要がある場合には、このコードに必要な変更・追加をするとい
う手があります。
私の場合、NIFTYのライブラリからＤＬした過去ログを月別に切り分け、区切
り記号を埋め込んだりして自分の通信ソフトやログブラウザが読める形式に変
換するのに用いています。

procedure HTCopyTextFile(SrcFile, DstFile: string);
var
  F1, F2: TextFile;
  S: string;
begin
  AssignFile(F1, SrcFile);
  Reset(F1);
  AssignFile(F2, DstFile);
  Rewrite(F2);
  try
    while not Eof(F1) do
    begin
      ReadLn(F1, S);
      WriteLn(F2, S);
    end;
  finally
    CloseFile(F2);
    CloseFile(F1);
  end;
end;


     　★ Avalon�U使うならログブラウザ「えるつぅ」公開中 ★
  　　　 AvalonないとNIFTYできない(^^) H-Triton Since 1996

Original document by H-Triton        氏 ID:(QZV11422)

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