お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"RE:ファイル関連で役に立ちそうな関数"

この発言は
#00177 MSHIDA さんのコムソート
に対するコメントです

こんにちは、ひでかずです。(^-^) >>できれば一発言一サンプルにしていただいたほうが >>あとから検索して使うことを考えると有用そうなので >>そのようにしていただけると よりありがたいです。 了解しました。一行程度のコードが多かったので、まとめてしまいました(笑) それで、早速修正です。 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; 修正点:1)ローカル変数を一個減らした。     2)例外を生成しないブロックにおいて、意味のないtry〜finallyを       削除した。(^-^; 以上です。                         '97.11.10(月) ひでかず Original document by ひでかず 氏 ID:(LDW01154)



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

Copyright 1996-2002 Delphi Users' Forum