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

cprs/trunk/CPRS-Chart/uDocTree.pas

@@ -84 +84 @@
   SrcList := TStringList.Create;
   try
-    SrcList.Assign(Source);
+    FastAssign(Source, SrcList);
     with SrcList do
       begin
@@ -250 +250 @@
     LookingForAddenda: boolean;
   begin
+    if not assigned(Node) then exit;
     LookingForAddenda := (Pos('ADDENDUM', UpperCase(CurrentContext.Keyword)) > 0);
     with ANode do
       begin
         Bold := True;
-        if Parent <> nil then
+        if assigned(Parent) then
           begin
             if (ImageIndex <> IMG_ADDENDUM) or ((ImageIndex = IMG_ADDENDUM) and LookingForAddenda) then
               Parent.Expand(False);
-            if Parent.Parent <> nil then
+            if assigned(Parent.Parent) then
               begin
                 if (Parent.ImageIndex <> IMG_ADDENDUM) or ((Parent.ImageIndex = IMG_ADDENDUM) and LookingForAddenda) then
                   Parent.Parent.Expand(False);
-                if Parent.Parent.Parent <> nil then
+                if assigned(Parent.Parent.Parent) then
                   if (Parent.Parent.ImageIndex <> IMG_ADDENDUM) or ((Parent.Parent.ImageIndex = IMG_ADDENDUM) and LookingForAddenda) then
                     Parent.Parent.Parent.Expand(False);