Changeset 829 for cprs/trunk/CPRS-Chart/Templates/rTemplates.pas

Timestamp:

Jul 7, 2010, 4:31:10 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrade to version 27

File:

• cprs/trunk/CPRS-Chart/Templates/rTemplates.pas (modified) (5 diffs)

cprs/trunk/CPRS-Chart/Templates/rTemplates.pas

@@ -105 +105 @@
     CallBroker;
     RPCBrokerV.Results.Delete(0);
-    BoilerPlate.Assign(RPCBrokerV.Results);
+    FastAssign(RPCBrokerV.Results, BoilerPlate);
     RPCBrokerV.Results.Clear;
   end;
@@ -260 +260 @@
   TmpList := TStringList.Create;
   try
-    TmpList.Assign(RPCBrokerV.Results);
+    FastAssign(RPCBrokerV.Results, TmpList);
     SortByPiece(TmpList, U, 2);
     MixedCaseList(TmpList);
-    RPCBrokerV.Results.Assign(TmpList);
+    FastAssign(TmpList, RPCBrokerV.Results);
   finally
     TmpList.Free;
@@ -377 +377 @@
 begin
   CallV('TIU FIELD CHECK',[nil]);
-  ResultString.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, ResultString);
 end;
 
@@ -398 +398 @@
     CallBroker;
   end;
-  Text.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, Text);
 end;
 
@@ -449 +449 @@
   Result := TRUE;
   CallV('TIU FIELD LIST IMPORT',[nil]);
-  ResultSet.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, ResultSet);
   if ResultSet.Count < 1 then
     Result := FALSE;