Вопрос об FileSize

[MeTeOpA]

Добрый день ув.программисты.

Программа для поиска одинаковых файлов на диске.

Проблема состоит в том что не удается присвоить 2ому столбцу размеры найденных файлов.

procedure TForm1.Button1Click(Sender: TObject);
var sr:TSearchRec;
Result:word;
i:integer;
Dir:string;
begin
i:=1;
SG1.Cells[0,0]:='Название Файла';
SG1.Cells[1,0]:='Размер';
SG1.Cells[2,0]:='Дата';
Dir:='C:\';
Result := FindFirst (Dir+'*.*',faAnyFile,sr);
While result=0 do
Begin
Result:=FindNext (sr);

SG1.Cells[0,i]:=sr.name;
//SG1.Cells[1,i]:=IntToStr(FileSize(Dir+sr.name)); Вот здесь проблема
SG1.Cells[2,i]:=DateTostr(FileDateToDateTime(SR.Time));
i:=i+1;
SG1.RowCount:=SG1.RowCount+1;
End;
end;

end.

PS проект залить не удалось... Помогите кто чем может

[ArtGrek]

в баитах

SG1.Cells[1,i]:=IntToStr(sr.Size);

FileSize работает после Assigne и всего такого

[Serge_Bliznykov]

ArtGrek +1

только надо учесть, что это будет корректно работать, только если размер файла меньше 4 Гб.
Если возможны файлы большего размера, то тогда надо получать размер чуть по другому..
смотрите пост тут

[MeTeOpA]

спасибо, работает а есть процедура для того чтобы размер отображался не в байтах а в зависимости от размера в кб,мб,гб?

[veniside]

function niceFileSize(fs: int64): string;
begin
  if (fs < 0) then
    result := 'а у вас файло убежало'
  else
  if (fs = 1) then
    result := '1 byte'
  else
  if (fs < 1024) then
    result := IntToStr(fs) + ' bytes'
  else
  if (fs < 1024 * 1024) then
    result := IntToStr(fs shr 10) + ' KB'
  else
  if (fs < 1024 * 1024 * 1024) then
    result := IntToStr(fs shr 20) + ' MB'
  else
  if (fs < int64(1024) * 1024 * 1024 * 1024) then
    result := IntToStr(fs shr 30) + ' GB'
  else
    result := IntToStr(fs shr 40) + ' TB';
end;

[GunSmoker]

Я использую Shell-скую StrFormatByteSize:

var
  StrFormatByteSizeW: function(ASize: UInt64; szBuf: PWideChar; uiBufSize: UINT): PWideChar; stdcall;

function StrFormatByteSizeDummy(ASize: UInt64; szBuf: PWideChar; uiBufSize: UINT): PWideChar; stdcall;

  function FmtSizeToStr(const ASize: Int64): String;
  const
    _Kb: Int64 = 1024;
    _Mb: Int64 = 1024*1024;
    _Gb: Int64 = 1024*1024*1024;
    _Tb: Int64 = 1099511627776; // 1024*1024*1024*1024;
  begin
    if ASize < _Kb then
      Result := Format(rsELSzFmt, [IntToStr(ASize), rsELb])
    else
    if ASize < _Mb then
      Result := Format(rsELSzFmt, [FloatToStrF(ASize / _Kb, ffFixed, 18, 2), rsELKb])
    else
    if ASize < _Gb then
      Result := Format(rsELSzFmt, [FloatToStrF(ASize / _Mb, ffFixed, 18, 2), rsELMb])
    else
    if ASize < _Tb then
      Result := Format(rsELSzFmt, [FloatToStrF(ASize / _Gb, ffFixed, 18, 2), rsELGb])
    else
      Result := Format(rsELSzFmt, [FloatToStrF(ASize / _Tb, ffFixed, 18, 2), rsELTb]);
  end;

var
  Buf: WideString;
  Sz: Integer;
begin
  Buf := FmtSizeToStr(ASize);

  Sz := Min(Length(Buf) + 1, uiBufSize);
  if Sz > 0 then
  begin
    Move(Buf[1], szBuf^, Sz * SizeOf(WideChar));
    szBuf[uiBufSize - 1] := #0;
  end;
  Result := szBuf;
end;

function FmtFormatSize(const ASize: UInt64): String;
var
  Lib: HMODULE;
  Buf: WideString;
begin
  if not Assigned(StrFormatByteSizeW) then
  begin
    Lib := LoadLibrary(shlwapi);
    if Lib <> 0 then
    begin
      StrFormatByteSizeW := GetProcAddress(Lib, 'StrFormatByteSizeW'); // Do Not Localize
      if not Assigned(StrFormatByteSizeW) then
        StrFormatByteSizeW := StrFormatByteSizeDummy;
    end
    else
      StrFormatByteSizeW := StrFormatByteSizeDummy;
  end;

  SetLength(Buf, 1024);
  if StrFormatByteSizeW(ASize, PWideChar(Buf), Length(Buf)) = nil then
    StrFormatByteSizeDummy(ASize, PWideChar(Buf), Length(Buf));
  Result := PWideChar(Buf);
end;

StrFormatByteSizeDummy - это заглушка только для старых систем. Если это не надо, то можно существенно проще:

function StrFormatByteSizeW(ASize: UInt64; szBuf: PWideChar; uiBufSize: UINT): PWideChar; stdcall; external 'shlwapi.dll';

function FmtFormatSize(const ASize: UInt64): String;
var
  Buf: WideString;
begin
  SetLength(Buf, 1024);
  if StrFormatByteSizeW(ASize, PWideChar(Buf), Length(Buf)) <> nil then
    Result := PWideChar(Buf)
  else
    Result := UIntToStr(ASize);
end;