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

Code cleanup

This commit is contained in:
mysticbbs 2012-07-23 23:02:19 -04:00
parent 1e2fb72e90
commit 92e963ce7a
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mdl/m_fileio.pas
View File

@ -247,7 +247,8 @@ Var
BWrite : LongInt; BWrite : LongInt;
FileBuf : Array[1..4096] of Char; FileBuf : Array[1..4096] of Char;
Begin Begin
Result := False; Result := False;
FileMode := 66;
Assign (SF, Source); Assign (SF, Source);
{$I-} Reset(SF, 1); {$I+} {$I-} Reset(SF, 1); {$I+}
@ -366,7 +367,7 @@ Function JustFile (Str: String) : String;
Var Var
Count : Byte; Count : Byte;
Begin Begin
For Count := Ord(Str[0]) DownTo 1 Do For Count := Length(Str) DownTo 1 Do
If (Str[Count] = '/') or (Str[Count] = '\') Then Begin If (Str[Count] = '/') or (Str[Count] = '\') Then Begin
Delete (Str, 1, Count); Delete (Str, 1, Count);
Break; Break;

3
mdl/m_socket_class.pas
View File

@ -174,9 +174,6 @@ Begin
End; End;
Procedure TSocketClass.BufFlush; Procedure TSocketClass.BufFlush;
Var
Count : LongInt;
Start : LongInt;
Begin Begin
If FOutBufPos > 0 Then Begin If FOutBufPos > 0 Then Begin
If FTelnetClient or FTelnetServer Then If FTelnetClient or FTelnetServer Then