Brauche QFileCtrls.dcu

[DeddyH]

Ich würde das eher so machen (ungetestet):

Delphi-Quellcode:

function CountFiles(FilePath: string): integer;
var
  SearchRec: TSearchRec;
begin
  Result := 0;
  FilePath := IncludeTrailingPathDelimiter(FilePath);
  if FindFirst(FilePath + '*.*', faAnyFile and not faDirectory, SearchRec) = 0 then
  begin
    repeat
      Inc(Result);
    until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
  end;
end; 

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := IntToStr(CountFiles('C:\x\'));
end;

[edit] inc(Count) in inc(Result) geändert, war vom C&P übrig geblieben [/edit]