Changeset 830 for cprs/trunk/CPRS-Chart/rDCSumm.pas

Timestamp:

Jul 7, 2010, 4:51:54 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrading to version 27

File:

• cprs/trunk/CPRS-Chart/rDCSumm.pas (modified) (4 diffs)

cprs/trunk/CPRS-Chart/rDCSumm.pas

@@ -102 +102 @@
 begin
   if uDCSummTitles = nil then LoadDCSummTitles;
-  Dest.AddStrings(uDCSummTitles.ShortList);
+  FastAddStrings(uDCSummTitles.ShortList, Dest);
   if uDCSummTitles.ShortList.Count > 0 then
   begin
@@ -212 +212 @@
       Results[i] := x;
     end; {for}
-    Dest.Assign(Results);
+    FastAssign(RPCBrokerV.Results, Dest);
   end; {with}
 end;*)
@@ -228 +228 @@
     begin
       CallV('TIU DOCUMENTS BY CONTEXT', [CLS_DC_SUMM, Context, Patient.DFN, Early, Late, Person, OccLim, SortSeq, SHOW_ADDENDA]);
-      Dest.Assign(RPCBrokerV.Results);
+      FastAssign(RPCBrokerV.Results, Dest);
     end;
 end;
@@ -321 +321 @@
       //Lines := Results;   'Lines' is being overwritten by subsequent Broker calls
       if not Assigned(Lines) then Lines := TStringList.Create;
-      Lines.Assign(Results);
+      FastAssign(RPCBrokerV.Results, Lines);
       // -----------------------------------------------------------------------
     end;