SizeEx: Variant;
Свойство SizeEx возвращает размер файла в байтах.
Какие-либо ограничения на размер файла не накладываются.
Для выполнения примера в файловой системе предполагается наличие файла «C:\Application.log».
Добавьте ссылку на системную сборку «IO».
Sub UserProc;
Var
FileInf: IFileInfo;
Begin
FileInf := New FileInfo.Attach("C:\Application.log");
If FileInf.Exists Then
Debug.WriteLine(FileInf.SizeEx);
End If;
Dispose FileInf;
End Sub UserProc;
После выполнения примера в окно консоли будет выведен размер файла «C:\Application.log».
См. также: