Procházet zdrojové kódy

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

# Conflicts:
#	Client/Lxtalk.dproj
#	Client/Lxtalk.res
#	Controls/RealICQClient/RealICQDBHistory.pas
cmg před 8 roky
rodič
revize
0a76466385
3 změnil soubory, kde provedl 6 přidání a 5 odebrání
  1. 1 1
      Client/Lxtalk.dproj
  2. binární
      Client/Lxtalk.res
  3. 5 4
      Controls/RealICQClient/RealICQDBHistory.pas

Rozdílová data souboru nebyla zobrazena, protože soubor je příliš velký
+ 1 - 1
Client/Lxtalk.dproj


binární
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;