Changeset 738 for cprs/branches/tmg-cprs/CPRS-Chart/dShared.pas

Timestamp:

Apr 19, 2010, 5:24:20 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Fixed Text Object Parameters

File:

• cprs/branches/tmg-cprs/CPRS-Chart/dShared.pas (modified) (2 diffs)

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

@@ -69 +69 @@
 implementation
 
-uses fDrawers, rTemplates, uCore, uTemplateFields, uEventHooks;
+uses
+  StrUtils,  //kt
+  fDrawers, rTemplates, uCore, uTemplateFields, uEventHooks;
 
 {$R *.DFM}
@@ -595 +597 @@
       end;
       obj := copy(tmp,1,j-1);
+      //kt --------- begin Mod ------------  4/15/10
+      if Pos('{',obj)>0 then begin
+        if Pos('}',obj) = 0 then begin
+          AddErr(DKLangConstW('dShared_Braces_xx_are_there_but_theres_no_param_inside_it')); //kt added 7/7/2007
+          continue;
+        end;
+        obj := MidStr(obj,1,Pos('{',obj)-1) + MidStr(obj,Pos('}',obj)+1,99999);
+      end;
+      //kt --------- End Mod ------------
+
       delete(tmp,1,j);
       if(obj = '') then