Как узнать размер текстового файла (Textfile)?

← →
novill © (2006-06-26 11:01) [0]

Функция filesize непримернима по описанию, а имя файла неизвестно (может быть разным и не передается).

← →
MBo © (2006-06-26 11:09) [1]

>Функция filesize непримернима по описанию
открой файл в том режиме, в котором она применима :)

А еще проще - FindFirst

← →
novill © (2006-06-26 11:18) [2]

> MBo © (26.06.06 11:09) [1]
> >Функция filesize непримернима по описанию
> открой файл в том режиме, в котором она применима :)
>
> А еще проще - FindFirst

Для любого из вариантов надо знать физическое имя файла.

Похоже придется переписывать работу с файлом.

← →
MBo © (2006-06-26 11:28) [3]

>Для любого из вариантов надо знать физическое имя файла.
??? А есть варианты, когда не нужно знать, что за файл????

← →
Palladin © (2006-06-26 11:39) [4]

видимо textfile у него открывается где то в одном месте, а размер получается в другом, в котром неизвестно имя файла... :)

← →
novill © (2006-06-26 11:47) [5]

Да. Если бы переменная была не TextFile, a, например, File of char, то filesize работала бы.

← →
MBo © (2006-06-26 11:47) [6]

>Palladin © (26.06.06 11:39) [4]
а, ну тогда с извратом можно:

var
f: TextFile;
begin
Assignfile(f, "c:\autoexec.bat");
Reset(f);
Caption := intToStr(GetFileSize(TTextRec(f).Handle, Nil));
Closefile(f);

> MBo

Спасибо. То что нужно.

> размер текстового файла
в каких единицах? Байтах, символах, абзацах, строках?

> MBo © (26.06.06 11:47) [6]

> а, ну тогда с извратом можно:

Почему это с извратом?
Вполне здоровый секс, хотя, конечно,
для половозрелых особей. Бо
Do not use this unless you are familiar with writing Object Pascal
text file device drivers.

--
Regards, LVT.

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