Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/dShared.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/dShared.pas (modified) (1 diff)

cprs/branches/foia-cprs/CPRS-Chart/dShared.pas

@@ -524 +524 @@
   if(not assigned(FTIUObjects)) or (FRefreshObject = true)  then
   begin
-   FTIUObjects := TStringList.Create;
+    if(not assigned(FTIUObjects)) then
+      FTIUObjects := TStringList.Create;
     FTIUObjects.Clear;
     GetObjectList;