LongRec =
packed
record
case
Integer
of
0
: (Lo, Hi:
Word
);
1
: (Words:
array
[
0..1
]
2
: (Bytes:
0..3
Byte
end
;
Сайт
Форум
FAQ
Соглашения
Прочее