VPF::как узнать размер файла в консольном приложений

NurbolKazbekov

Дата 29.1.2009, 12:43 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте всем!
У меня такой вопрос: как можно узнать размер файла в консольном приложений без формы и с минимальным использованием модулей?
Буду очень благодарен!

AKATAN

Дата 29.1.2009, 12:56 (ссылка)

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

Загрузка ...

Шустрый

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

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

function FileSize(var F): Integer;

Также можно чисто паскалевским способом

Код


...
i := 0;

while not EOF(f) do
 begin
 read(some_value, f);
 inc(i);
 end;
...

В переменной i будет размер файла в байтах

Это сообщение отредактировал(а) AKATAN - 29.1.2009, 13:11

NurbolKazbekov

Дата 29.1.2009, 13:09 (ссылка)

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

Загрузка ...

Новичок

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

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

AKATAN, а функция FileSize в каком модуле описан и она будет работать без VCL?

нашел, в модуле System, а она будет работать проекте ез VCL?

Это сообщение отредактировал(а) NurbolKazbekov - 29.1.2009, 13:11

AKATAN

Дата 29.1.2009, 13:12 (ссылка)

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

Загрузка ...

Шустрый

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

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

Да.
Функция FileSize описана в модуле System.

NurbolKazbekov

Дата 30.1.2009, 09:39 (ссылка)

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

Загрузка ...

Новичок

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

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

ВСЕМ СЭНК!

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