|
|
@@ -691,8 +691,8 @@ begin
|
|
|
begin
|
|
|
if Result.IndexOf(ADODataSet.FieldByName('Sender').AsString) = -1 then
|
|
|
Result.Add(ADODataSet.FieldByName('Sender').AsString);
|
|
|
- //if Result.Count >= 100 then
|
|
|
- // Break;
|
|
|
+ if Result.Count >= 100 then
|
|
|
+ Break;
|
|
|
ADODataSet.Next;
|
|
|
end;
|
|
|
|
|
|
@@ -704,8 +704,9 @@ begin
|
|
|
begin
|
|
|
if Result.IndexOf(ADODataSet.FieldByName('Receiver').AsString) = -1 then
|
|
|
Result.Add(ADODataSet.FieldByName('Receiver').AsString);
|
|
|
- //if Result.Count >= 100 then
|
|
|
- // Break;
|
|
|
+
|
|
|
+ if Result.Count >= 100 then
|
|
|
+ Break;
|
|
|
ADODataSet.Next;
|
|
|
end;
|
|
|
|