blob: a6521d2ac4cd03af9eb7d583939ed445a27fffc0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
program tw20577a;
{$mode delphi}{$H+}
type
TSimpleHashBucket<T> = record
HashCode : Integer;
Value : T;
end;
TSimpleHashBucketArray<T> = array of TSimpleHashBucket<T>;
{ TSimpleHash }
TSimpleHash<T> = class
private
FBuckets : TSimpleHashBucketArray<T>;
procedure test;
end;
{ TSimpleHash<T> }
procedure TSimpleHash<T>.test;
var
oldBuckets : TSimpleHashBucketArray<T>;
begin
oldBuckets := FBuckets;
end;
begin
end.
|
