|
|
| A byte-safe function for measuring the length of data inside a string. |
 |
| RawString |
The string that contains the data. |
|
function string 255 CommandSuccesful(string replystr)
begin
string 255 replyerrstr;
Integer pos,l,field;
string 255 tstr;
Integer i1;
l = BytesInString(replystr);
for (pos=0;pos<l;pos=pos+1) begin
i1 = GetByteFromString(replystr,pos);
switch (i1) begin
case TESA_DELIMITER:
field = field + 1;
otherwise
switch (field) begin
case 1:
replyerrstr = replyerrstr & chr(i1);
end;
end;
end;
CommandSuccesful = replyerrstr;
return;
end;
««