|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как получить размер файла в мб?
delete!!!!
Последний раз редактировалось M-UNIT, 07.02.2011 в 04:26. |
#2
|
|||
|
|||
Получить его в байтах и поделить на (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; |
#3
|
|||
|
|||
delete!!!!
Последний раз редактировалось M-UNIT, 07.02.2011 в 04:26. |
#4
|
||||
|
||||
Var
F : File Of Byte; L : Integer; Такой вариант: Код:
begin AssignFile(F,'d:\text.txt'); Reset(F); L:=SizeOf(F); CloseFile(F); end; |
#5
|
|||
|
|||
delete!!!!
Последний раз редактировалось M-UNIT, 07.02.2011 в 04:27. |
#6
|
|||
|
|||
А дельть его два раза на 2^10 (1024*1024) кто будет? размер же надо в Мб!!!!!
Говори что думаешь, думай, что говоришь. (Шоссе 60) |