source:
branches/ByteArray/Channel.pas
Last change on this file was 47, checked in by , 7 months ago | |
---|---|
File size: 408 bytes |
Line | |
---|---|
1 | unit Channel; |
2 | |
3 | interface |
4 | |
5 | uses |
6 | Classes, SysUtils, BigInt; |
7 | |
8 | type |
9 | TChannel = class |
10 | type |
11 | TRead = function (Address: TBigInt; DataSize: TBigIntSize): TBigInt of object; |
12 | TWrite = procedure (Address: TBigInt; DataSize: TBigIntSize; Value: TBigInt) of object; |
13 | TGetSize = function : TBigInt of object; |
14 | var |
15 | Read: TRead; |
16 | Write: TWrite; |
17 | GetSize: TGetSize; |
18 | end; |
19 | |
20 | |
21 | implementation |
22 | |
23 | end. |
24 |
Note:
See TracBrowser
for help on using the repository browser.