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

More portable writeLine function

This commit is contained in:
g00r00 2013-10-04 10:40:54 -04:00
parent 223aed578b
commit e24ecf331f
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
mystic/mpl_execute.pas
View File

@ -1265,12 +1265,7 @@ End;
Procedure TInterpEngine.FileWriteLine (Var F: File; Str: String);
Begin
{$IFDEF WINDOWS}
Str := Str + #13#10;
{$ENDIF}
{$IFDEF UNIX}
Str := Str + #10;
{$ENDIF}
Str := Str + LineTerm;
BlockWrite (F, Str[1], Ord(Str[0]));