Explorar el Código

Merge branch 'LTS' of https://git.wswin.cn/lqq/RealICQClient into LTS

# Conflicts:
#	Client/Lxtalk.dproj
#	Client/Lxtalk.res
#	Controls/RealICQClient/RealICQDBHistory.pas
cmg hace 8 años
padre
commit
0a76466385
Se han modificado 3 ficheros con 6 adiciones y 5 borrados
  1. 1 1
      Client/Lxtalk.dproj
  2. BIN
      Client/Lxtalk.res
  3. 5 4
      Controls/RealICQClient/RealICQDBHistory.pas

La diferencia del archivo ha sido suprimido porque es demasiado grande
+ 1 - 1
Client/Lxtalk.dproj


BIN
Client/Lxtalk.res


+ 5 - 4
Controls/RealICQClient/RealICQDBHistory.pas

@@ -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;