formula error - CR XI

[ReportDr00]

Hello,

Below is the formula and i am getting a number is required here error, can someone point me to the error.

Whileprintingrecords;
Local NumberVar topNode:=0;
Local StringVar array comments:="";
Local NumberVar i;
Local NumberVar InstLines := 0;

If ToText({Client.Instructions})="" then
InstLines := 0
else
(
comments := Split({Client.Instructions}, "|");
topNode := UBound(comments);
For i := 1 To topNode Do
(
If (Len(comments) > 0) Then
(
InstLines := InstLines + 1
)
);
);
InstLines

 

[lbass]

For one thing, instructions is already text. Then try:

Whileprintingrecords;
Local NumberVar topNode:=0;
Local StringVar array comments:="";
Local NumberVar i;
Local NumberVar InstLines := 0;

If trim({Client.Instructions})="" then
InstLines := 0;
If trim({Client.Instructions})<>"" then
(
comments := Split({Client.Instructions}, "|");
topNode := UBound(comments);
For i := 1 To topNode Do
(
If (Len(comments) > 0) Then
(
InstLines := InstLines + 1
)
);
);
InstLines

-LB