source:
branches/multi-width/Int24.pas
Last change on this file was 54, checked in by , 20 months ago | |
---|---|
File size: 393 bytes |
Line | |
---|---|
1 | unit Int24; |
2 | |
3 | interface |
4 | |
5 | uses |
6 | Classes, SysUtils; |
7 | |
8 | type |
9 | Int24 = packed record |
10 | case Byte of |
11 | 0: (b0, b1, b2: UInt8); |
12 | 1: (b: packed array [0..2] of UInt8); |
13 | 2: (w1: UInt16; w2: UInt8); |
14 | end; |
15 | |
16 | UInt24 = packed record |
17 | case Byte of |
18 | 0: (b0, b1, b2: UInt8); |
19 | 1: (b: packed array [0..2] of UInt8); |
20 | 2: (w1: UInt16; w2: UInt8); |
21 | end; |
22 | |
23 | implementation |
24 | |
25 | end. |
26 |
Note:
See TracBrowser
for help on using the repository browser.