Количество файлов в папке

← →
Гость2 (2005-07-14 19:03) [0]

как посчитать количество файлов в директории включая поддиректории и вывести размер всей директории?
нашел ссылку:
http://delphibase.spb.ru/?action=viewfunc&topic=fileops&id=10316
Но проблема с
procedure TForm1.Button1Click(Sender: TObject); var S: Int64; begin S:=0; GetDirSize("с:\WINDOWS", True, S, @TForm1.GetDirCallback, Integer(Self)); Label1.Caption:=IntToStr(S); end;
а именно , @TForm1.GetDirCallback,

← →
Fay © (2005-07-14 19:05) [1]

Гость2 (14.07.05 19:03)
Вынеси GetDirCallback из класса

← →
Гость2 (2005-07-14 19:07) [2]

Каким образом подскажи

Исправить на

1)
type
TGetDirSizeCallback = procedure (Tag: Integer; CurrentSize: Int64); of object;

2)
procedure TForm1.Button1Click(Sender: TObject);
var
S: Int64;
begin
S:=0;
GetDirSize("с:\WINDOWS", True, S, Self.GetDirCallback, Integer(Self));
Label1.Caption:=IntToStr(S);
end;

Количество файлов в папке Найти похожие ветки