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
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
{
*****************************************************************************
This file is part of LazUtils.
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license.
*****************************************************************************
}
// A list of integers implemented using generics.
// Supports the same methods and properties as TStringList does for strings, except
// for "Sorted" property. Thus integers cannot be added to a sorted list correctly.
unit IntegerList;
{$mode objfpc}{$H+}
interface
uses
fgl;
type
TByteList = class(specialize TFPGList<Byte>)
public
procedure Sort; overload;
end;
TWordList = class(specialize TFPGList<Word>)
public
procedure Sort; overload;
end;
TCardinalList = class(specialize TFPGList<Cardinal>)
public
procedure Sort; overload;
end;
TIntegerList = class(specialize TFPGList<Integer>)
public
procedure Sort; overload;
end;
TInt64List = class(specialize TFPGList<Int64>)
public
procedure Sort; overload;
end;
implementation
function CompareByte(const Item1, Item2: Byte): Integer;
begin
if Item1 > Item2 then
Result := 1
else if Item1 < Item2 then
Result := -1
else
Result := 0;
end;
function CompareWord(const Item1, Item2: Word): Integer;
begin
if Item1 > Item2 then
Result := 1
else if Item1 < Item2 then
Result := -1
else
Result := 0;
end;
function CompareCardinal(const Item1, Item2: Cardinal): Integer;
begin
if Item1 > Item2 then
Result := 1
else if Item1 < Item2 then
Result := -1
else
Result := 0;
end;
function CompareInteger(const Item1, Item2: Integer): Integer;
begin
if Item1 > Item2 then
Result := 1
else if Item1 < Item2 then
Result := -1
else
Result := 0;
end;
function CompareInt64(const Item1, Item2: Int64): Integer;
begin
if Item1 > Item2 then
Result := 1
else if Item1 < Item2 then
Result := -1
else
Result := 0;
end;
{ TByteList }
procedure TByteList.Sort;
begin
inherited Sort(@CompareByte);
end;
{ TWordList }
procedure TWordList.Sort;
begin
inherited Sort(@CompareWord);
end;
{ TCardinalList }
procedure TCardinalList.Sort;
begin
inherited Sort(@CompareCardinal);
end;
{ TIntegerList }
procedure TIntegerList.Sort;
begin
inherited Sort(@CompareInteger);
end;
{ TInt64List }
procedure TInt64List.Sort;
begin
inherited Sort(@CompareInt64);
end;
end.
|
