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

cprs/trunk/CPRS-Chart/fProbLex.pas

@@ -6 +6 @@
   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
   Forms, Dialogs, ORFn, uProbs, StdCtrls, Buttons, ExtCtrls, ORctrls, uConst,
-  fAutoSz, uInit;
+  fAutoSz, uInit, fBase508Form, VA508AccessibilityManager;
 
 type
-  TfrmPLLex = class(TForm)
+  TfrmPLLex = class(TfrmBase508Form)
     Label1: TLabel;
     bbCan: TBitBtn;
@@ -183 +183 @@
   begin
    ProblemList.clear;
-   {Alist.Assign(ProblemLexiconSearch(v)) ;}
-   Alist.Assign(OldProblemLexiconSearch(v, 100)) ;
+   {FastAssign(ProblemLexiconSearch(v), Alist) ;}
+   FastAssign(OldProblemLexiconSearch(v, 100), Alist) ;
   end;
  if Alist.count > 0 then
     begin
-     lbLex.Items.assign(Alist);
-     ProblemList.assign(Alist);
+     FastAssign(Alist, lbLex.Items);
+     FastAssign(Alist, ProblemList);
      Max:=ProblemList[pred(ProblemList.count)]; {get max number found}
      ProblemList.delete(pred(ProblemList.count)); {shed max# found}