You’re offline. This is a read only version of the page.
360
After this nice 2013 R2 we have been able to use text strings of unlimited length.
This is very handy, but it also causes a need to split them into smaller chunks.
I created a function that does exactly that, but bumped into a funny bug:
It seems that if you give an array as a parameter to a function, called function sets the size of the local array to match the size of the array in calling function!
The POC code below has an array of 100 in the calling function, and an array of 2 in the called function, and yet it seems to be working fine! (At least in my NAV 2013 R2 build 36897)
This is funny, since it eliminates the need to declare an array in a function way too big. I would have reported this to Microsoft also, but it seems that I would have to pay 299€ for that, since we don't seem to have any technical credits left :D
Please find stringwrapper function below, and enjoy!
//Urpok
OBJECT Codeunit 50101 TestCodeunit
{
OBJECT-PROPERTIES
{
Date=04.07.14;
Time=10:58:00;
Modified=Yes;
Version List=INN000;
}
PROPERTIES
{
OnRun=VAR
tempArray@1000000004 : ARRAY [100] OF Text;
OK@1000000002 : Boolean;
i@1000000001 : Integer;
MsgText@1000000000 : Text;
BEGIN
CLEAR(tempArray);
tempArray[1] := 'This is a long text i want to wrap to lines with max 5 characters long';
OK := WrapText(tempArray,5);
i := 0;
REPEAT
i +=1;
MsgText += FORMAT(i) + ': "' + tempArray[i] + '"\';
UNTIL(STRLEN(tempArray[i])=0);
MESSAGE('Success:' + FORMAT(OK) + '\' + MsgText);
END;
}
CODE
{
PROCEDURE WrapText@1000000000(VAR inText@1000000000 : ARRAY [2] OF Text;MaxLen@1000000001 : Integer) OK : Boolean;
VAR
i@1000000002 : Integer;
BEGIN
//Spreads the first line of inText array to other lines as MaxLen long strings, returns ok if no overflow
IF (ARRAYLEN(inText) < 2) THEN
ERROR('Array must be bigger than 1');
IF (MaxLen < 1) THEN
ERROR('MaxLen has to be a positive integer');
FOR i := 1 TO ARRAYLEN(inText)-1 DO BEGIN
inText[i+1] := COPYSTR(inText[i],MaxLen+1);
inText[i] := COPYSTR(inText[i],1,MaxLen);
IF (STRLEN(inText[i+1]) <= MaxLen) THEN
EXIT(TRUE);
END;
EXIT (STRLEN(inText[i+1]) <= MaxLen);
END;
BEGIN
END.
}
}
*This post is locked for comments
I have the same question (0)
nice code snippet, worth a blog posting.
best regards
Share
Report
All responses (
Answers (
