type PTSBytes=^TSBytes; TSBytes=packed record b0,b1,b2,b3:byte; end; procedure writeSingleAsBytes(s:single); var pb:PTSBytes; begin pb:=@s; writeln(pb^.b0); writeln(pb^.b1); writeln(pb^.b2); writeln(pb^.b3); end; begin writeSingleAsBytes(0.55); readln; end.
Спасибо, у меня d10.4, нашёл f.bytes[0..3]
Обсуждают сегодня