[M-UNIT]

delete!!!!

[lmikle]

Получить его в байтах и поделить на (1024*1024)

Код:

fucntion GetFileSizeMB(AFileName : String) : Double;
var
  F : TSearchRec;
begin
  Try
    If FindFirst(AFileName,faAnyFile,F) <> 0 Then
      Raise Exception.Create('File not found.');
    Result := F.Size / (1024*1024);
  Finally
    FindClose(F);
  End;
end;

[M-UNIT]

delete!!!!

[friz]

Var
F : File Of Byte;
L : Integer;
Такой вариант:

Код:

begin
   AssignFile(F,'d:\text.txt');
   Reset(F);
   L:=SizeOf(F);
   CloseFile(F);
end;

L- размер в байтах

[M-UNIT]

delete!!!!

[OnzMill]

А дельть его два раза на 2^10 (1024*1024) кто будет? размер же надо в Мб!!!!!