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

cprs/trunk/CPRS-Chart/Orders/fODAllgy.pas

@@ -6 +6 @@
   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
   Forms, Dialogs, StdCtrls, ORCtrls, ORfn, fODBase, ExtCtrls, ComCtrls, uConst,
-  Menus, ORDtTm, Buttons;
+  Menus, ORDtTm, Buttons, VA508AccessibilityManager;
 
 type
@@ -321 +321 @@
   AStringList := TStringList.Create;
   try
-    AStringList.Assign(memComments.Lines);
+    FastAssign(memComments.Lines, AStringList);
     LimitStringLength(AStringList, 74);
-    memComments.Lines.Assign(AstringList);
+    QuickCopy(AstringList, memComments);
     ControlChange(Self);
   finally