[r45]: / trunk / library / XmlControl / FB_StringBuffer / Append / Set / svnobj  Maximize  Restore  History

Download this file

16 lines (15 with data), 1.9 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
VAR
    pByteIn : POINTER TO BYTE;
    pByteBuffer : POINTER TO BYTE;
END_VAR
IsGet
pByteIn := ADR(Append); 
pByteBuffer := pStrBuf + udiLength;
WHILE pByteIn^ <> 0 AND (udiLength < udiBufSize ) DO
    pByteBuffer^ := pByteIn^;
    udiLength := udiLength + 1;
    pByteIn := pByteIn + 1;
    pByteBuffer := pByteBuffer + 1;
END_WHILE;
pByteBuffer := pStrBuf + udiLength; (* String End *)
pByteBuffer^ := 0; (* nul terminated string *)