Как узнать размер текстового файла в Delphi

← →
Dr. Genius (2004-10-06 09:20) [0]

Функция SizeOf не применима к текстовым файлам (TextFile), но я уверен, что существует способ узнать размер текстового файла и вывести его (размер) в Delphi в строковом (String) виде.
Как узнать размер текстового файла?

← →
П7 (2004-10-06 09:22) [1]

Как не странно это выглядит, но FileSize( f : TextFile );
Хотя наверно в выборе имни для функции разработчики сильно ошиблись, ибо получилось ОЧЕНЬ НЕ интуитивно понятное название! (:

← →
П7 (2004-10-06 09:25) [2]

И вот ещё прикол-то в чём. Этой мега-функцией можно узнать размер не только текстового, но и любого другого файла. Главное, чтобы параметром был указатель на открытый файл любого типа.
ВотЪ! (:

← →
TUser © (2004-10-06 10:51) [3]

А для того, чтобы вывести в строковом виде, есть совсем не-интуитивная функция inttostr()

← →
kukuikar © (2004-10-06 10:59) [4]

Универсальная функция для всех файлов.
Просто указываншь файл и полуяаешь его вес в байтах.

function GetFileSize(namefile: string): Integer; var InfoFile: TSearchRec; AttrFile: Integer; ErrorReturn: Integer; begin AttrFile := $0000003F; {Any file} ErrorReturn := FindFirst(namefile, AttrFile, InfoFile); if ErrorReturn <> 0 then Result := -1 {в случае, если файл не найден} else Result := InfoFile.Size; {Размер файла в байтах} FindClose(InfoFile); end;

← →
kukuikar © (2004-10-06 10:59) [5]

Удалено модератором

← →
AndersoNRules (2004-10-06 20:37) [6]

Function GetFileSize(FName:String):Int64;
var FS:TFileStream;
begin
try
FS:=TFileStream.Create(FName,fmOpenRead);
Result:=FS.Size;
finally
FS.Free;
end;
end;

← →
Fay © (2004-10-06 20:52) [7]

2 AndersoNRules
Интересный вариант. А нафиг ?

← →
Dr. Genius (2004-10-07 09:10) [8]

Спасибо всем за помощь!

← →
П7 (2004-10-07 09:30) [9]

> Fay © (06.10.04 20:52) [7]

А затем, что так быстрее. К тому же, если ты вообще работаешь с файламиерез потоки, то так ещё и удобнее! (:

Как узнать размер текстового файла в Delphi Найти похожие ветки