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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
unit Main;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Math, Forms, Controls, Dialogs, StdCtrls, Spin,
LookupStringList;
type
{ TForm1 }
TForm1 = class(TForm)
btnDedupeMemo: TButton;
btnDedupeFile: TButton;
btnGenerate: TButton;
Label1 :TLabel;
lblLines: TLabel;
lblTime: TLabel;
Memo: TMemo;
SpinEdit1: TSpinEdit;
procedure btnDedupeFileClick(Sender: TObject);
procedure btnGenerateClick(Sender: TObject);
procedure btnDedupeMemoClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
private
inList :TStringList;
procedure UpdateDuplicates(aDuplicateCount: string);
procedure UpdateTime(aTime: TDateTime);
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.UpdateDuplicates(aDuplicateCount: string);
begin
lblLines.Caption := 'Duplicated Lines: ' + aDuplicateCount;
end;
procedure TForm1.UpdateTime(aTime: TDateTime);
begin
lblTime.Caption := 'Time: ' + TimeToStr(aTime);
end;
procedure TForm1.btnGenerateClick(Sender: TObject);
var
i, j: Integer;
s :string;
begin
UpdateDuplicates('?');
UpdateTime(0);
Memo.Clear;
Application.ProcessMessages;
Screen.Cursor := crHourGlass;
try
InList.Clear;
for i := 0 to SpinEdit1.Value - 1 do
begin
s := '';
for j := 0 to 5 do
s := s + chr(randomrange(97, 123));
InList.Add(s);
end;
Memo.Lines.Assign(inList);
finally
Screen.Cursor := crDefault;
end;
end;
procedure TForm1.btnDedupeMemoClick(Sender: TObject);
var
DSL :TLookupStringList;
T :TDateTime;
begin
Screen.Cursor := crHourGlass;
try
T := Now;
DSL := TLookupStringList.Create;
try
DSL.Assign(Memo.Lines);
UpdateDuplicates(IntToStr(Memo.Lines.Count - DSL.Count));
Memo.Lines.Assign(DSL);
finally
DSL.Free;
end;
UpdateTime(Now - T);
finally
Screen.Cursor := crDefault;
end;
end;
procedure TForm1.btnDedupeFileClick(Sender: TObject);
var
T :TDateTime;
N :integer;
DSL :TLookupStringList;
begin
lblTime.Caption := 'Time:';
lblLines.Caption := 'Duplicated lines:';
Application.ProcessMessages;
if Trim(Memo.Text) = '' then
begin
ShowMessage('Generating data. Please wait.');
btnGenerateClick(nil);
end;
ShowMessage('Saving memo to a file. Please wait.');
Memo.Lines.SaveToFile('temp.txt');
ShowMessage('Dedupping the file.');
T := Now;
N := Memo.Lines.Count;
DSL := TLookupStringList.Create;
try
DSL.LoadFromFile('temp.txt');
lblLines.Caption := 'Duplicated Lines: ' + IntToStr(N - DSL.Count);
DSL.SaveToFile('temp.txt');
lblTime.Caption := 'Time: ' + TimeToStr(Now - T);
ShowMessage('Deleting the file.');
DeleteFile('temp.txt');
finally
DSL.Free;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
inList := TStringList.Create;
Randomize;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
inList.Free;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
spinedit1.Value := 100000;
end;
end.
|
