この発言は
#00172　凛              さんのRE:ファイル関連で役に立ちそうな関数
に対するコメントです



こんにちは、ひでかずです。(^-^)

>>できれば一発言一サンプルにしていただいたほうが
>>あとから検索して使うことを考えると有用そうなので
>>そのようにしていただけると　よりありがたいです。

了解しました。一行程度のコードが多かったので、まとめてしまいました。
それで、早速修正です。

function FileSizeEx(const FileName: String): Integer;
var
  R: TSearchRec;
begin
  if FindFirst(FileName, faAnyFile, R) = 0 then Result := R.Size
  else Result := -1;
  FindClose(R);
end;

修正点：１）ローカル変数を一個減らした。
　　　　２）例外を生成しないブロックにおいて、意味のないtry〜finallyを
　　　　　　削除した。

以上です。

 　　　　　　　　　　　　　　　　　　　　　　　　'97.11.11(月) ひでかず

Original document by ひでかず        氏 ID:(LDW01154)

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