blob: 8c809ac80e6934da195e94eae954fc46ed25ddb6 (
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
34
35
36
37
38
|
L:=TFPList.Create;
Try
T1:=Now;
L.Capacity:=Max;
For I:=0 to Max-1 do
L.Add(Pointer(I));
L.Clear;
T2:=Now;
Writeln('Add/Clear Time : ',FormatDateTime('hh:nn:ss.zzz',T2-T1));
T1:=Now;
For I:=0 to Max-1 do
L.Add(Pointer(I));
// Hustle
For I:=0 to Max-1 do
begin
J:=Random(Max);
K:=Random(Max);
L.Exchange(J,K);
end;
T2:=Now;
Writeln('Add/Hustle Time : ',FormatDateTime('hh:nn:ss.zzz',T2-T1));
T1:=Now;
// Simple search
For I:=0 to Max-1 do
begin
J:=L.IndexOf(Pointer(I));
end;
T2:=Now;
Writeln('Search Time : ',FormatDateTime('hh:nn:ss.zzz',T2-T1));
T1:=Now;
// Simple search and remove
For I:=Max-1 downto 0 do
L.Remove(Pointer(I));
T2:=Now;
Writeln('Remove Time : ',FormatDateTime('hh:nn:ss.zzz',T2-T1));
Finally
L.Free;
end;
|
