VPF::FileSize и текстовые файлы - Форум программистов

Дата 3.9.2005, 10:26 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: нет
Всего: 128

Надо определить размер текстового файла. Я пишу:

Код


VAR files: Text;
       i: Integer;
BEGIN
 i:=FileSize(files);
END.

Однако, пишется ошибка о неверном формате файла (Invalid file type) в строчке FileSize. Как быть?

--------------------

Дата 3.9.2005, 10:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Все правильно пишется, потому что ф-я FileSize применима к типизированным и бестиповым файлам, но никак не к текстовым.

Цитата(sim7 @ 3.9.2005, 10:26)

Как быть?

Ну, например так:

Код

Function TextSize(name: String): LongInt;
Var f: File Of Char;
Begin
  Assign(f, name);
  Reset(f); TextSize := FileSize(f); Close(f)
End;

или опять воспользоваться FindFirst (в структуре SearchRec есть поле Size: LongInt, которое и содержит то, что нужно).

Дата 3.9.2005, 11:22 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: нет
Всего: 128

Хорошо, спасибо!

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »