eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

PurgeInput change

This commit is contained in:
mysticbbs 2012-08-17 17:22:10 -04:00
parent 4e2fcf4584
commit 21a5279d38
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
mdl/m_io_base.pas
View File

@ -57,14 +57,14 @@ Begin
End; End;
Procedure TIOBase.PurgeInputData; Procedure TIOBase.PurgeInputData;
Var //Var
Buf : Array[1..2048] of Char; // Buf : Array[1..2048] of Char;
Begin Begin
FInBufPos := 0; FInBufPos := 0;
FInBufEnd := 0; FInBufEnd := 0;
While DataWaiting Do // While DataWaiting Do
ReadBuf(Buf, SizeOf(Buf)); // ReadBuf(Buf, SizeOf(Buf));
End; End;
Function TIOBase.DataWaiting : Boolean; Function TIOBase.DataWaiting : Boolean;