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

Советы » Файлы » Как определить размер файла

// Если файл не существует, то вместо размера файла функция верн¸т -1
function

GetFileSize(FileName: String

): Integer; var

FS: TFileStream; begin

try

FS := TFileStream.Create(Filename, fmOpenRead); except

Result := -1; end

; if

Result <> -1 then

Result := FS.Size; FS.Free; end

; procedure

TForm1.FormCreate(Sender: TObject); begin

ShowMessage(IntToStr(GetFileSize('c:prova.pdf'))); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com