Zählen tu ich es wie bei deinem Code.
> via Inc(FCountFiles) im Code
Ja und auf den Wert kann man leicht über dir öffentlichen Property zugreifen:
Delphi-Quellcode:
procedure TMyClass.FindFile(Sender: TFindFiles; Filename: string; const Info: TWin32FindData; var Cancel: Boolean);
begin
Labe11.Caption := IntToStr(Sender.CountFiles);
Labe12.Caption := Filename;
Application.ProcessMessages;
end;
F := TFindFile.Create;
F.OnFindFile := FindFile;
F.Find;