1 | unit UDynamicNumber;
|
---|
2 |
|
---|
3 | {$mode Delphi}{$H+}
|
---|
4 |
|
---|
5 | interface
|
---|
6 |
|
---|
7 | uses
|
---|
8 | Classes, SysUtils;
|
---|
9 |
|
---|
10 | type
|
---|
11 |
|
---|
12 | { TDynamicNumber }
|
---|
13 |
|
---|
14 | TDynamicNumber = class
|
---|
15 | private
|
---|
16 | function GetSize: Integer;
|
---|
17 | procedure SetSize(const AValue: Integer);
|
---|
18 | procedure CheckSize(Source: TDynamicNumber);
|
---|
19 | public
|
---|
20 | Value: array of Byte;
|
---|
21 | procedure Assign(AValue: Integer); overload;
|
---|
22 | procedure Assign(AValue: Byte); overload;
|
---|
23 |
|
---|
24 | function BitwiseAnd(AValue: TDynamicNumber): TDynamicNumber;
|
---|
25 | function BitwiseOr(AValue: TDynamicNumber): TDynamicNumber;
|
---|
26 | function BitwiseXor(AValue: TDynamicNumber): TDynamicNumber;
|
---|
27 | function BitwiseNot: TDynamicNumber;
|
---|
28 |
|
---|
29 | function Add(AValue: TDynamicNumber): TDynamicNumber;
|
---|
30 | function Subtract(AValue: TDynamicNumber): TDynamicNumber;
|
---|
31 | function Divide(AValue: TDynamicNumber): TDynamicNumber;
|
---|
32 | function Multiply(AValue: TDynamicNumber): TDynamicNumber;
|
---|
33 |
|
---|
34 | function EqualTo(AValue: TDynamicNumber): Boolean;
|
---|
35 | function HigerThen(AValue: TDynamicNumber): Boolean;
|
---|
36 | function LowerThen(AValue: TDynamicNumber): Boolean;
|
---|
37 |
|
---|
38 | procedure Shift(Direction: Integer);
|
---|
39 | property Size: Integer read GetSize write SetSize;
|
---|
40 | end;
|
---|
41 |
|
---|
42 | implementation
|
---|
43 |
|
---|
44 | { TDynamicNumber }
|
---|
45 |
|
---|
46 | function TDynamicNumber.GetSize: Integer;
|
---|
47 | begin
|
---|
48 | Result := Length(Value);
|
---|
49 | end;
|
---|
50 |
|
---|
51 | procedure TDynamicNumber.SetSize(const AValue: Integer);
|
---|
52 | begin
|
---|
53 | SetLength(Value, AValue);
|
---|
54 | end;
|
---|
55 |
|
---|
56 | procedure TDynamicNumber.CheckSize(Source: TDynamicNumber);
|
---|
57 | begin
|
---|
58 | if Source.Size <> Size then
|
---|
59 | raise Exception.Create('Size mismatch.');
|
---|
60 | end;
|
---|
61 |
|
---|
62 | procedure TDynamicNumber.Assign(AValue: Integer);
|
---|
63 | begin
|
---|
64 | Size := 4;
|
---|
65 | Value[0] := AValue;
|
---|
66 | Value[1] := AValue shr 8;
|
---|
67 | Value[2] := AValue shr 16;
|
---|
68 | Value[3] := AValue shr 24;
|
---|
69 | end;
|
---|
70 |
|
---|
71 | procedure TDynamicNumber.Assign(aValue: Byte);
|
---|
72 | begin
|
---|
73 | Size := 1;
|
---|
74 | Value[0] := AValue;
|
---|
75 | end;
|
---|
76 |
|
---|
77 | function TDynamicNumber.BitwiseAnd(AValue: TDynamicNumber): TDynamicNumber;
|
---|
78 | var
|
---|
79 | I: Integer;
|
---|
80 | begin
|
---|
81 | CheckSize(AValue);
|
---|
82 | for I := 0 to Length(Value) - 1 do
|
---|
83 | Value[I] := Value[I] and AValue.Value[I];
|
---|
84 | Result := Self;
|
---|
85 | end;
|
---|
86 |
|
---|
87 | function TDynamicNumber.BitwiseOr(AValue: TDynamicNumber): TDynamicNumber;
|
---|
88 | var
|
---|
89 | I: Integer;
|
---|
90 | begin
|
---|
91 | CheckSize(AValue);
|
---|
92 | for I := 0 to Length(Value) - 1 do
|
---|
93 | Value[I] := Value[I] or AValue.Value[I];
|
---|
94 | Result := Self;
|
---|
95 | end;
|
---|
96 |
|
---|
97 | function TDynamicNumber.BitwiseXor(AValue: TDynamicNumber): TDynamicNumber;
|
---|
98 | var
|
---|
99 | I: Integer;
|
---|
100 | begin
|
---|
101 | CheckSize(AValue);
|
---|
102 | for I := 0 to Length(Value) - 1 do
|
---|
103 | Value[I] := Value[I] xor AValue.Value[I];
|
---|
104 | Result := Self;
|
---|
105 | end;
|
---|
106 |
|
---|
107 | function TDynamicNumber.BitwiseNot: TDynamicNumber;
|
---|
108 | var
|
---|
109 | I: Integer;
|
---|
110 | begin
|
---|
111 | for I := 0 to Length(Value) - 1 do
|
---|
112 | Value[I] := not Value[I];
|
---|
113 | Result := Self;
|
---|
114 | end;
|
---|
115 |
|
---|
116 | function TDynamicNumber.Add(AValue: TDynamicNumber): TDynamicNumber;
|
---|
117 | begin
|
---|
118 | raise Exception.Create('Not implemented');
|
---|
119 | end;
|
---|
120 |
|
---|
121 | function TDynamicNumber.Subtract(AValue: TDynamicNumber): TDynamicNumber;
|
---|
122 | begin
|
---|
123 | raise Exception.Create('Not implemented');
|
---|
124 | end;
|
---|
125 |
|
---|
126 | function TDynamicNumber.Divide(AValue: TDynamicNumber): TDynamicNumber;
|
---|
127 | begin
|
---|
128 | raise Exception.Create('Not implemented');
|
---|
129 | end;
|
---|
130 |
|
---|
131 | function TDynamicNumber.Multiply(AValue: TDynamicNumber): TDynamicNumber;
|
---|
132 | begin
|
---|
133 | raise Exception.Create('Not implemented');
|
---|
134 | end;
|
---|
135 |
|
---|
136 | function TDynamicNumber.EqualTo(AValue: TDynamicNumber): Boolean;
|
---|
137 | var
|
---|
138 | I: Integer;
|
---|
139 | begin
|
---|
140 | CheckSize(AValue);
|
---|
141 | Result := True;
|
---|
142 | for I := 0 to Length(Value) - 1 do
|
---|
143 | if Value[I] <> Value[I] then begin
|
---|
144 | Result := False;
|
---|
145 | Break;
|
---|
146 | end;
|
---|
147 | end;
|
---|
148 |
|
---|
149 | function TDynamicNumber.HigerThen(AValue: TDynamicNumber): Boolean;
|
---|
150 | begin
|
---|
151 | raise Exception.Create('Not implemented');
|
---|
152 | end;
|
---|
153 |
|
---|
154 | function TDynamicNumber.LowerThen(AValue: TDynamicNumber): Boolean;
|
---|
155 | begin
|
---|
156 | raise Exception.Create('Not implemented');
|
---|
157 | end;
|
---|
158 |
|
---|
159 | procedure TDynamicNumber.Shift(Direction: Integer);
|
---|
160 | begin
|
---|
161 | raise Exception.Create('Not implemented');
|
---|
162 | end;
|
---|
163 |
|
---|
164 |
|
---|
165 | end.
|
---|
166 |
|
---|