Changeset 736 for cprs/branches/tmg-cprs/CPRS-Chart/Templates
- Timestamp:
- Apr 13, 2010, 1:31:19 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/branches/tmg-cprs/CPRS-Chart/Templates/uTemplateFields.pas
r735 r736 550 550 //p2 := PosEx(FN_END_TAG,Txt,p1); 551 551 p2 := CloseCharPos(FN_BEGIN_TAG, FN_END_TAG, Txt, p1); 552 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/10552 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 553 553 FnStr := MidStr(Txt,p1, (p2-p1)); 554 554 FnStr := AnsiReplaceText(FnStr,#9,''); … … 577 577 p1 := p1 + FN_OBJ_TAG_LEN; 578 578 p2 := CloseCharPos(FN_BEGIN_TAG, FN_END_TAG, Txt, p1); 579 SubStrB := MidStr(Txt,p2+1, 999);579 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 580 580 FnStr := MidStr(Txt,p1, (p2-p1)); 581 581 FnStr := AnsiReplaceText(FnStr,#9,''); … … 730 730 p1 := p1 + FN_SHOW_TEXT_LEN; 731 731 p2 := PosEx(FN_SHOW_TEXT_END,Txt,p1); 732 SubStrB := MidStr(Txt,p2+1, 999);732 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 733 733 FnStr := MidStr(Txt,p1, (p2-p1)); 734 734 FnStr := GetFormula(FnStr); … … 799 799 p1 := p1 + OBJ_SHOW_TEXT_LEN; 800 800 p2 := PosEx(OBJ_SHOW_TEXT_END,Txt,p1); 801 SubStrB := MidStr(Txt,p2+1, 999);801 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 802 802 ObjStr := MidStr(Txt,p1, (p2-p1)); 803 803 ObjStr := GetTxtObjects(ObjStr); … … 1098 1098 p2 := PosEx(FieldIDDelim,FnObjStr,p1+1); 1099 1099 Argument := MidStr(FnObjStr,p1+1,(p2-p1)-1); 1100 SubStrB := MidStr(FnObjStr,p2+1, 999);1100 SubStrB := MidStr(FnObjStr,p2+1,StrLen(PChar(FnObjStr))+1); 1101 1101 CtrlID := StrToIntDef(MidStr(Argument,1,FieldIDLen-1), 0); 1102 Fld := MidStr(Argument,FieldIDLen, 999);1102 Fld := MidStr(Argument,FieldIDLen,StrLen(PChar(Argument))+1); 1103 1103 if(CtrlID > 0) then begin 1104 1104 FoundEntry := FALSE; … … 1135 1135 end; 1136 1136 SubStrA := MidStr(Temp,1,FnP1-1); 1137 SubStrB := MidStr(Temp,FnP2+1, 999);1137 SubStrB := MidStr(Temp,FnP2+1,StrLen(PChar(Temp))+1); 1138 1138 if (HTMLMode=true) and (FnObjStr <> '') then begin 1139 1139 FnObjStr := HTMLAnswerOpenTag + FnObjStr + HTMLAnswerCloseTag;
Note:
See TracChangeset
for help on using the changeset viewer.