Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

novill © (2006-06-26 11:01:00)
Функция filesize непримернима по описанию, а имя файла неизвестно (может быть разным и не передается).

Leonid Troyanovsky (2006-06-26 18:18:00) [1]

> 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.

Desdechado (2006-06-26 16:13:00) [2]
> размер текстового файла
в каких единицах? Байтах, символах, абзацах, строках?

novill (2006-06-26 14:19:00) [3]

> MBo

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

novill (2006-06-26 11:47:00) [4]
Да. Если бы переменная была не TextFile, a, например, File of char, то filesize работала бы.

MBo (2006-06-26 11:47:00) [5]
>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);

Palladin (2006-06-26 11:39:00) [6]
видимо textfile у него открывается где то в одном месте, а размер получается в другом, в котром неизвестно имя файла... :)

MBo (2006-06-26 11:28:00) [7]
>Для любого из вариантов надо знать физическое имя файла.
??? А есть варианты, когда не нужно знать, что за файл????

novill (2006-06-26 11:18:00) [8]

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

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

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

MBo (2006-06-26 11:09:00) [9]
>Функция filesize непримернима по описанию
открой файл в том режиме, в котором она применима :)

А еще проще - FindFirst

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »