[leon2009]

Здравствуйте! как вывести размер файла

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

procedure TForm1.FileSearch(const dirName:string); var   searchResult: TSearchRec;  a : array [1..255] of Integer; begin   if FindFirst(dirName+'\*', faAnyFile, searchResult)=0 then begin     try       repeat         if (searchResult.Attr and faDirectory)=0 then begin           if SameText(ExtractFileExt(searchResult.Name), '.jpg') then begin             ListBox2.Items.Append(IncludeTrailingBackSlash(dirName)+searchResult.Name);             memo3.Lines.Add(inttostr(searchResult.Size)); //size image               // a[i]:=searchResult.Size;             // memo5.Lines.Add(inttostr(a[i]));             end;         end else if (searchResult.Name<>'.') and (searchResult.Name<>'..') then begin           FileSearch(IncludeTrailingBackSlash(dirName)+searchResult.Name);          end;       until FindNext(searchResult)<>0     finally       FindClose(searchResult);     end;   end; end;

Код:

1 2 3 4 5

procedure TForm1.Button6Click(Sender: TObject); begin FileSearch('d:\image'); memo5.Lines.Add(a); end;

Спасибо!