Форум: "Основная";
Текущий архив: 2002.12.19;
Скачать: [xml.tar.bz2];

Вниз

Размер файла   Найти похожие ветки 

← →
viper   (2002-12-09 15:54) [0]

Как быстро узнать размер файла?

---

← →
MBo   (2002-12-09 16:07) [1]

findfirst

---

← →
Sha   (2002-12-09 16:24) [2]

FindFirst, FindFirstFile для больших файлов

---

← →
FreeLancer   (2002-12-09 17:24) [3]

> viper (09.12.02 15:54)
> Как быстро узнать размер файла?


FindFirst, FindFirstFile ?

А не быстрее ли будет сразу к файлу (если имя известно)?

procedure TЬнForm.GetMyFileSize(Sender: TObject);
var
fh: integer;
fsize: dword;
begin
if FileExists(MyFileName) then
try
fh := FileOpen(MyFileName, fmShareDenyNone);
fsize := GetFileSize(fh, nil);
ShowMessage(IntToStr(fsize));
finally
FileClose(fh);
end;
end;


---

← →
Андрей Прокофьев   (2002-12-09 17:38) [4]

FreeLancer © (09.12.02 17:24)
>>А не быстрее ли будет сразу к файлу (если имя известно)?
FileExists вызывает FileAge, FileAge вызывает FindFirstFile
:))

---

← →
Johnmen   (2002-12-09 17:47) [5]

>А не быстрее ли будет сразу к файлу (если имя известно)?

Не быстрее. Лишняя операция открытия файла.

---

← →
FreeLancer   (2002-12-09 17:49) [6]

> FileExists вызывает FileAge, FileAge вызывает FindFirstFile
> :))


Да, ради бога:


procedure TЬнForm.GetMyFileSize(Sender: TObject);
var
fh: integer;
fsize: dword;
begin
try
fh := FileOpen(MyFileName, fmShareDenyNone);
fsize := GetFileSize(fh, nil);
ShowMessage(IntToStr(fsize));
finally
FileClose(fh);
end;
end;


Речь то не о FileExists, а о GetFileSize
:-)

---

← →
FreeLancer   (2002-12-09 18:00) [7]

> Не быстрее. Лишняя операция открытия файла.

Ок, Ок. Я соглашусь, что FindFirstFile
А вы согласитесь, что все-таки не FindFirst
:-)

---

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

Форум: "Основная";
Текущий архив: 2002.12.19;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.057 c