[leon2009]

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

Код:

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;

Код:

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

Спасибо!