source: branches/ByteArray/Channel.pas

Last change on this file was 47, checked in by chronos, 7 months ago
  • Added: Common package.
  • Modified: Improved BigInt class.
File size: 408 bytes
Line 
1unit Channel;
2
3interface
4
5uses
6 Classes, SysUtils, BigInt;
7
8type
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
21implementation
22
23end.
24
Note: See TracBrowser for help on using the repository browser.