Текущий архив: 2005.03.27;
Скачать: 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 вся ветка
Текущий архив: 2005.03.27;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.031 c
