Changeset 830 for cprs/trunk/CPRS-Chart/rSurgery.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/rSurgery.pas (modified) (7 diffs)

cprs/trunk/CPRS-Chart/rSurgery.pas

@@ -124 +124 @@
 begin
   if (uSurgeryTitles = nil) or (AClassName <> uSurgeryTitles.ClassName) then LoadSurgeryTitles(AClassName);
-  Dest.AddStrings(uSurgeryTitles.ShortList);
+  FastAddStrings(uSurgeryTitles.ShortList, Dest);
   if uSurgeryTitles.ShortList.Count > 0 then
   begin
@@ -169 +169 @@
        SortByPiece(TStringList(Results), U, 2);
        InvertStringList(TStringList(Results));
-       Dest.Assign(Results);
+       FastAssign(Results, Dest);
      end
     else
@@ -191 +191 @@
        InvertStringList(TStringList(Results));
        SetListFMDateTime('mmm dd,yy hh:nn', TStringList(Results), U, 3);
-       Dest.Assign(Results);
+       FastAssign(Results, Dest);
      end
     else
@@ -206 +206 @@
 begin
   CallV('TIU GET RECORD TEXT', [IEN]);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -213 +213 @@
 begin
   CallV('TIU DETAILED DISPLAY', [IEN]);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;
 
@@ -226 +226 @@
     begin
       //if Results.Count > 0 then Results.Delete(0);   //This is the value of the ShowOpTopOnSignature site parameter.
-      Dest.Assign(Results);
+      FastAssign(Results, Dest);
     end;
 end;*)
@@ -281 +281 @@
 begin
   CallV('ORWSR ONECASE', [NoteIEN]);
-  Dest.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Dest);
 end;