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;
Procedure TIOBase.PurgeInputData;
Var
Buf : Array[1..2048] of Char;
//Var
// Buf : Array[1..2048] of Char;
Begin
FInBufPos := 0;
FInBufEnd := 0;
While DataWaiting Do
ReadBuf(Buf, SizeOf(Buf));
// While DataWaiting Do
// ReadBuf(Buf, SizeOf(Buf));
End;
Function TIOBase.DataWaiting : Boolean;