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

Typo

This commit is contained in:
mysticbbs 2012-09-06 04:32:53 -04:00
parent af154215f8
commit efebe66988
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mystic/bbs_filebase.pas
View File

@ -447,7 +447,7 @@ Begin
Arc^.FindFirst(SR); Arc^.FindFirst(SR);
While SR.Name <> '' Do Begin While SR.Name <> '' Do Begin
If (Pos('FILE_ID.DIZ', strUpper(SR.Name)) > 0 Then Begin If Pos('FILE_ID.DIZ', strUpper(SR.Name)) > 0 Then Begin
DizName := strStripLow(SR.Name); DizName := strStripLow(SR.Name);
Break; Break;
End; End;
@ -607,7 +607,7 @@ Begin
End Else End Else
Session.io.OutFullLn (Session.GetPrompt(386)); Session.io.OutFullLn (Session.GetPrompt(386));
DirClean(Session.TempPath, ''); FileErase (Session.TempPath + 'xfer.log');
End; End;
Procedure TFileBase.DownloadFileList (Data: String); Procedure TFileBase.DownloadFileList (Data: String);