Типизированные файлы [D7, WinXP]
Игнатенков Станислав © (2005-03-09 20:05:00)
подскажите как загрузить
[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:00) [1]
ИЗВИНИТЕ :)))
Нашел ошибку!!! я писал вообще не существующее имя файла!
Бывает
Наверх 
ЧАТ |
Орешник |
|
