Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.31;
Скачать: CL | DM;

Вниз

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

 
Гость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]

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


 
Fay ©   (2005-07-14 19:12) [3]

Исправить на

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;



Страницы: 1 вся ветка

Текущий архив: 2005.07.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
3-1118910829
DSKalugin
2005-06-16 12:33
2005.07.31
Дистрибутив и Microsoft.Jet.OLEDB.4.0


14-1120857704
Ihor Osov'yak
2005-07-09 01:21
2005.07.31
Предложение ударить по разжигателям междунациональной вражды..


3-1118761254
Ega23
2005-06-14 19:00
2005.07.31
Почему не обновляется RecordCount?


1-1121070333
Stalker01
2005-07-11 12:25
2005.07.31
Работа в потоке


3-1119714262
ali_tash
2005-06-25 19:44
2005.07.31
TDBLookupComboBoxEh