Скачать: CL | DM;

Как узнать размер текстового файла в 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]

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

---

← →
TUser ©   (2004-10-07 10:21) [10]

> kukuikar ©   (06.10.04 10:59) [4]

Это отнюдь не универсальный вариатн. И довольно медленный, кстати.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.298 c