Как в Delphi определить размер файла?

[Nomad]

Собственно вопрос... Есть допустим файл 2010.dmp, как можно определить его размер? И можно ли как-то сделать так что бы изменение его размера, по мере формирования отображались в компоненте Label?

[Grag]

Можно так:

var
  SizeOfFile:integer;
  FS: TFileStream;
begin
  ...................
  FS:=TFileStream.Create(Filename, fmOpenRead);
  SizeOfFile:=FS.Size;
  FS.Free;
  Label.Caption:=IntToStr(SizeOfFile)
  ....................

или функция FileSize(тут файловая переменная) - возвращает размер файла в байтах...

[Nomad]

Grag, отписал личное сообщение, уточнить кое-что хочу...

Grag, спс, то что нужно!

[Serge_Bliznykov]

кстати, я бы рекомендовал написать получение размера файла через FindFirst
в этом случае можно получить и размер файла, которые невозможно открыть! (нет прав, кем то захвачен и т.д.)

[eoln]

Парочка уточнений для больших файлов. В примере Grag вместо integer лучше int64, а IntToStr заменить на другую ф-ию, например на

function int64tostr(i64: int64): string;
begin
  str(i64, result)
end;

. А в примере Serge_Bliznykov, FindFirst лучше заменить на FindFirstFile, чтобы проверять для файлов более 2 ГБ.

function sizefile(s: string): int64;
var
  SearchRec : _WIN32_FIND_DATAA;
begin
  FindFirstFile(pchar(s), SearchRec);
  result := SearchRec.nFileSizeHigh shl 32 + SearchRec.nFileSizeLow
end;

[Serge_Bliznykov]

eoln, ну что тут добавить??!
Только +

[baster128]

var

F: File;
i: Integer;
begin
for i := 0 to (FileListBox1.Items.Count - 1) do begin
try
if FileListBox1.Selected[i] then
begin
if not FileExists(FileListBox1.Items.Strin gs[i]) then begin
MessageDlg('File: ' + FileListBox1.Items.Strings[i] +
' not found', mtError, [mbOk], 0);
Continue;
end;
AssignFile(F, FileListBox1.Items.Strings[i]);

Reset(F, 1);
ListBox1.Items.Add(IntToStr(FileSize(F)));
CloseFile(F);
end;
finally
{ do something here }
end;
end;
end;
Из делфевого хелпа

[Nomad]

Вопрос как бы неделю назад решился , но все-равно всем спасибо за участие !