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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
unit CollLibrary;
(*****************************************************************************
* Copyright 2003 by Matthew Greet
* This library is free software; you can redistribute it and/or modify it
* under the terms of the GNU Lesser General Public License as published by the
* Free Software Foundation; either version 2.1 of the License, or (at your
* option) any later version.
*
* This library is distributed in the hope that it will be useful, but WITHOUT
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
* FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more
* details. (http://opensource.org/licenses/lgpl-license.php)
*
* See http://www.warmachine.u-net.com/delphi_collections for updates and downloads.
*
* $Version: v1.0.3 $
* $Revision: 1.0.1.1 $
* $Log: D:\QVCS Repositories\Delphi Collections\CollLibrary.qbt $
*
* Initial version.
*
* Revision 1.0.1.1 by: Matthew Greet Rev date: 24/10/03 16:48:16
* v1.0 branch.
*
* Revision 1.0 by: Matthew Greet Rev date: 06/04/03 10:40:32
* Initial revision.
*
* $Endlog$
*****************************************************************************)
interface
uses
Collections, CollArray, CollHash, CollList, CollPArray, CollWrappers;
type
TMiscCollectionLibrary = class
public
class function ClassNameToClassType(ClassName: String): TAbstractCollectionClass;
class function EqualIID(const IID1, IID2: TGUID): Boolean;
class function HashCode(Value: String): Integer;
class procedure ShuffleArray(var ItemArray: array of ICollectable);
class procedure ShuffleList(const List: IList);
end;
implementation
{ TMiscCollectionLibrary }
class function TMiscCollectionLibrary.ClassNameToClassType(ClassName: String): TAbstractCollectionClass;
begin
if ClassName = 'TArray' then
Result := TArray
else if ClassName = 'THashSet' then
Result := THashSet
else if ClassName = 'THashMap' then
Result := THashMap
else if ClassName = 'THashIntegerMap' then
Result := THashIntegerMap
else if ClassName = 'THashStringMap' then
Result := THashStringMap
else if ClassName = 'TListSet' then
Result := TListSet
else if ClassName = 'TListMap' then
Result := TListMap
else if ClassName = 'TPArrayBag' then
Result := TPArrayBag
else if ClassName = 'TPArraySet' then
Result := TPArraySet
else if ClassName = 'TPArrayList' then
Result := TPArrayList
else if ClassName = 'TPArrayMap' then
Result := TPArrayMap
else
Result := nil;
end;
class function TMiscCollectionLibrary.EqualIID(const IID1, IID2: TGUID): Boolean;
begin
Result := (IID1.D1 = IID2.D1) and (IID1.D2 = IID2.D2) and (IID1.D3 = IID2.D3) and
(IID1.D4[0] = IID2.D4[0]) and (IID1.D4[1] = IID2.D4[1]) and
(IID1.D4[2] = IID2.D4[2]) and (IID1.D4[3] = IID2.D4[3]) and
(IID1.D4[4] = IID2.D4[4]) and (IID1.D4[5] = IID2.D4[5]) and
(IID1.D4[6] = IID2.D4[6]) and (IID1.D4[7] = IID2.D4[7]);
end;
class function TMiscCollectionLibrary.HashCode(Value: String): Integer;
var
I: Integer;
begin
Result := 0;
for I := 1 to Length(Value) do
Result := (Result shl 1) xor Ord(Value[I]);
end;
class procedure TMiscCollectionLibrary.ShuffleArray(var ItemArray: array of ICollectable);
var
Item: ICollectable;
ArraySize, I, Index: Integer;
begin
Randomize;
ArraySize := Length(ItemArray);
for I := 0 to ArraySize - 1 do
begin
Index := (I + Random(ArraySize - 1) + 1) mod ArraySize;
Item := ItemArray[I];
ItemArray[I] := ItemArray[Index];
ItemArray[Index] := Item;
end;
end;
class procedure TMiscCollectionLibrary.ShuffleList(const List: IList);
var
ListSize, I: Integer;
begin
Randomize;
ListSize := List.GetSize;
for I := 0 to ListSize - 1 do
begin
List.Exchange(I, (I + Random(ListSize - 1) + 1) mod ListSize);
end;
end;
end.
|
