VPF::Создание файла - Форум программистов

VAmpiru$

Дата 18.1.2005, 04:01 (ссылка)

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

Загрузка ...

Новичок

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

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

Вот задачка:

Код


[b]var [/b]
arr:array[0..99] of ^byte;

как мне записать в файл только те значения которие были инициализированы?? ( new(arr[i]) );

какой должна бить структура файла smile

Код


File=record
  arr:array[0..99] of byte
end;

не подходит так как записивается весь масив... smile

Snowy

Дата 18.1.2005, 09:32 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

for i:=0 to 99 do
if arr[i] <> nil then Write(file, arr[i]);

Код


var
  arr:array[0..99] of ^byte;
  f: file of byte;
  i: integer;
begin
  for i:=10 to 20 do new(arr[i]); // например в массиве существуют 10 до 20
  Assign(f,'save.dat'); Rewrite(f);
  for i:=0 to 99 do
    if arr[i] <> nil then Write(f,arr[i]^);
  Close(f);
end.

P.S. Отсутсвие ошибки не гарантирую - набросал прямо в бравзере.

Это сообщение отредактировал(а) Snowy - 18.1.2005, 09:37

VAmpiru$

Дата 18.1.2005, 22:40 (ссылка)

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

Загрузка ...

Новичок

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

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

спасиб

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