Текущий архив: 2002.01.24;
Скачать: CL | DM;
Вниз
record Найти похожие ветки
← →
DK © (2002-01-06 06:02) [8]Объясняю ещё раз:
type myrec = packed record-размер созданного файла 5 байт (x + y + var1 + var2)
x,y : byte;
var1 : word;
var2 : byte;
end;
var
f: file of myrec;
w: myrec;
begin
assignfile(F, "c:\111.1");
rewrite(F);
write(F,w);
system.close(F);
end;
без packed будет 6 байт
С shortstring всё работает (уже проверил), но размер файла будет побольше (>256). Лучше по-моему ограничить строки не shortstring а например string[size].
Второе: если это твой файл: $34$C3$FA$21$D3 (5 байт)
то с этим
type myrec = record
x,y : byte;
var1 : word;
var2 : byte;
end;
при считывании ты получишь Read beyond end of file
Поэтому или накинь один байтик или юзай packed record.
Он работает чуток медленнее, но тогда все твои байтики из файла чётко "спроэцируются" на запись:
X:= $34;
Y:= $C3;
var1:= $21FA;
var2:= $D3;
Страницы: 1 вся ветка
Текущий архив: 2002.01.24;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.006 c
