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

debugging on

This commit is contained in:
mysticbbs 2013-09-22 20:53:14 -04:00
parent 486c01f2f1
commit 43a1f3a0ed
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mdl/m_tcp_client.pas
View File

@ -68,7 +68,7 @@ Begin
If Client.FSocketHandle = -1 Then Exit;
// WriteLn ('DEBUG SENT ' + Str);
WriteLn ('DEBUG SENT ' + Str);
Client.PurgeInputData(1);
@ -91,7 +91,7 @@ Begin
ResponseType := strS2I(Copy(ResponseStr, 1, 3));
Result := ResponseType;
// WriteLn ('DEBUG RECV ' + ResponseStr);
WriteLn ('DEBUG RECV ' + ResponseStr);
If ResponseStr[4] = '-' Then Begin
{$IFDEF USESTRINGLIST}