Типизированные файлы

← →
Игнатенков Станислав (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]

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

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