Архив форумов ЦИТФорума

[Anatoliy]

Вот исходный код на дельфи:
---------------------------------------------
var
DirBytes : integer;

function TFileBrowser.DirSize(Dir:string):integer;
var
SearchRec : TSearchRec;
Separator : string;
begin
if Copy(Dir,Length(Dir),1)='\' then Separator := ''
else Separator := '\';
if FindFirst(Dir+Separator+'*.*',faAnyFile,SearchRec) = then begin
if FileExists(Dir+Separator+SearchRec.Name) then begin
DirBytes := DirBytes + SearchRec.Size;
{Memo1.Lines.Add(Dir+Separator+SearchRec.Name);}
end
else
if DirectoryExists(Dir+Separator+SearchRec.Name) then begin
if (SearchRec.Name'.') and (SearchRec.Name'..') then
DirSize(Dir+Separator+SearchRec.Name);
end;
while FindNext(SearchRec) = do begin
if FileExists(Dir+Separator+SearchRec.Name) then begin
DirBytes := DirBytes + SearchRec.Size;
{Memo1.Lines.Add(Dir+Separator+SearchRec.Name);}
end
else
if DirectoryExists(Dir+Separator+SearchRec.Name) then begin
if (SearchRec.Name'.') and (SearchRec.Name'..') then begin
DirSize(Dir+Separator+SearchRec.Name);
end;
end;
end;
end;
FindClose(SearchRec);
end;
-----------------------------------------.. немного сделал вот так:
var
DirBytes : integer; -заменил- Int DirBytes;
var
SearchRec : TSearchRec; -заменил- TSearchRec SearchRec;
Separator : string; -заменил- String Separator;

' заменил на ";

begin -заменил- {

end; -заменил- }

:= -заменил- ==

Не понял с этим:
function TFileBrowser.DirSize(Dir:string):integer;

Если можно вышлю Вам на E-mail код.