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;