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

cprs/trunk/CPRS-Chart/uOrPtf.pas

@@ -35 +35 @@
   if RPCBrokerV.Results.Count > 0 then
   begin
-    FlagList.Assign(RPCBrokerV.Results);
+    FastAssign(RPCBrokerV.Results, FlagList);
     HasFlag := True;
   end;
@@ -67 +67 @@
   CallV('ORPRF GETFLG', [PTDFN,FlagRecordID]);
   if RPCBrokerV.Results.Count > 0 then
-    FlagInfo.Assign(RPCBrokerV.Results);
+    FastAssign(RPCBrokerV.Results, FlagInfo);
 end;