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

Download this file

13 lines (12 with data), 1.5 kB

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
// Clears the buffer and sets the length to 0
METHOD Clear
VAR_INPUT
END_VAR
VAR 
IF (pStrBuf = 0) OR (udiBufsize = 0) THEN
	RETURN;
END_IF
FOR i := 0 TO (udiBufsize-1) DO
	pStrBuf[i] := 0;
END_FOR
udiLength := 0;