掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
FindFirstでリソース不足に陥る (ID:39219)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>これらの機能をしないようにしてもおきるので、FindFirstが原因ではないかと考えています。 では、実際に以下のコードにした場合、エラーは表示しますか？ procedure TFormImageViewer.ShashinYomidashi; var sr : TSearchRec; FileAttrs : Integer; i : Integer; begin StatusBar1.Panels[1].Text := '0枚'; Screen.Cursor := crHourGlass; DCount := 1; FileAttrs := faAnyFile; P := EditFolderShitei.Text + '\*.jpg'; if FindFirst(P, FileAttrs, sr) = 0 then begin repeat if not ((sr.Name = '..')or(sr.Name = '.')) then begin Inc(DCount); end; //if not until FindNext(sr) <> 0; FindClose(sr); end; //if StatusBar1.Panels[1].Text := FormatFloat('#,##0枚', DCount - 1); Screen.Cursor := crDefault; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.