Changeset 736 for cprs/branches/tmg-cprs/CPRS-Chart/Templates/uTemplateFields.pas

Timestamp:

Apr 13, 2010, 1:31:19 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Bug fixes

File:

• cprs/branches/tmg-cprs/CPRS-Chart/Templates/uTemplateFields.pas (modified) (6 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/Templates/uTemplateFields.pas

@@ -550 +550 @@
     //p2 := PosEx(FN_END_TAG,Txt,p1);
     p2 := CloseCharPos(FN_BEGIN_TAG, FN_END_TAG, Txt, p1);
-    SubStrB := MidStr(Txt,p2+1,99999);    //Changed from 999 to 99999. Some characters were getting lost including the dialog tags that trigger the dialog box   elh  04/08/10
+    SubStrB := MidStr(Txt,p2+1,StrLen(PChar(Txt))+1);    //Changed from 999 to StrLen(PChar(Txt))+1. Some characters were getting lost including the dialog tags that trigger the dialog box   elh  04/08/10
     FnStr := MidStr(Txt,p1, (p2-p1));
     FnStr := AnsiReplaceText(FnStr,#9,'');
@@ -577 +577 @@
     p1 := p1 + FN_OBJ_TAG_LEN;
     p2 := CloseCharPos(FN_BEGIN_TAG, FN_END_TAG, Txt, p1);
-    SubStrB := MidStr(Txt,p2+1,999);
+    SubStrB := MidStr(Txt,p2+1,StrLen(PChar(Txt))+1);  //Changed from 999 to StrLen(PChar(Txt))+1. Some characters were getting lost including the dialog tags that trigger the dialog box   elh  04/13/10
     FnStr := MidStr(Txt,p1, (p2-p1));
     FnStr := AnsiReplaceText(FnStr,#9,'');
@@ -730 +730 @@
     p1 := p1 + FN_SHOW_TEXT_LEN;
     p2 := PosEx(FN_SHOW_TEXT_END,Txt,p1);
-    SubStrB := MidStr(Txt,p2+1,999);
+    SubStrB := MidStr(Txt,p2+1,StrLen(PChar(Txt))+1);   //Changed from 999 to StrLen(PChar(Txt))+1. Some characters were getting lost including the dialog tags that trigger the dialog box   elh  04/13/10
     FnStr := MidStr(Txt,p1, (p2-p1));
     FnStr := GetFormula(FnStr);
@@ -799 +799 @@
     p1 := p1 + OBJ_SHOW_TEXT_LEN;
     p2 := PosEx(OBJ_SHOW_TEXT_END,Txt,p1);
-    SubStrB := MidStr(Txt,p2+1,999);
+    SubStrB := MidStr(Txt,p2+1,StrLen(PChar(Txt))+1);    //Changed from 999 to StrLen(PChar(Txt))+1. Some characters were getting lost including the dialog tags that trigger the dialog box   elh  04/13/10
     ObjStr := MidStr(Txt,p1, (p2-p1));
     ObjStr := GetTxtObjects(ObjStr);
@@ -1098 +1098 @@
           p2 := PosEx(FieldIDDelim,FnObjStr,p1+1);
           Argument := MidStr(FnObjStr,p1+1,(p2-p1)-1);
-          SubStrB := MidStr(FnObjStr,p2+1,999);
+          SubStrB := MidStr(FnObjStr,p2+1,StrLen(PChar(FnObjStr))+1);
           CtrlID := StrToIntDef(MidStr(Argument,1,FieldIDLen-1), 0);
-          Fld := MidStr(Argument,FieldIDLen,999);
+          Fld := MidStr(Argument,FieldIDLen,StrLen(PChar(Argument))+1);
           if(CtrlID > 0) then begin
             FoundEntry := FALSE;
@@ -1135 +1135 @@
         end;
         SubStrA := MidStr(Temp,1,FnP1-1);
-        SubStrB := MidStr(Temp,FnP2+1,999);
+        SubStrB := MidStr(Temp,FnP2+1,StrLen(PChar(Temp))+1);
         if (HTMLMode=true) and (FnObjStr <> '') then begin
           FnObjStr := HTMLAnswerOpenTag + FnObjStr + HTMLAnswerCloseTag;