Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Создание файла

Автор: VAmpiru$ 18.1.2005, 04:01

Вот задачка:

Код


[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

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. Отсутсвие ошибки не гарантирую - набросал прямо в бравзере.

Автор: VAmpiru$ 18.1.2005, 22:40

спасиб