[r59]: / trunk / library / FB_StreamBuffer / Clear / svnobj  Maximize  Restore  History

Download this file

15 lines (14 with data), 1.6 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
(*  
    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;