Скачать: CL | DM;

Типизированные файлы   Найти похожие ветки 

← →
Игнатенков Станислав   (2005-03-09 20:05) [0]

подскажите как загрузить

[code]
 RTile = record
  tilenumber: byte;
  solid: boolean;
  extraflag: byte;
 end;
 RMap = record
  s:integer;
  t:byte;
  tiles_filename:string[45];
  tileset : array[0..255,0..255] of Rtile;
 end;

var
 map:RMap;

procedure save;
var
 savefile: File of RMap;
begin

   AssignFile(savefile,"test.bin");
   Rewrite(savefile);

   Write(savefile,map);

   CloseFile(savefile);

end;[/code]

как потом файл загрузить?
read(savefile,map) почему то выдает ощибку IO 6

---

← →
Игнатенков Станислав   (2005-03-09 20:07) [1]

ИЗВИНИТЕ :)))
Нашел ошибку!!! я писал вообще не существующее имя файла! Бывает

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.031 c