Форум: "Основная";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];
Внизrecord Найти похожие ветки
← →
Alx2 (2002-01-04 14:15) [7]Вот с absolute:
type
TmyRec = packed record
byte1, byte2 : byte;
Data : Word;
end;
Var
A : integer;
B : TMyRec absolute A;
begin
A := 0; // Теперь весь B забит нулями
B.byte1 := 1;
B.byte2 := 2;
теперь A=513=$00000201
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.014 c