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

Fix for FLO add

This commit is contained in:
mysticbbs 2013-03-19 02:24:54 -04:00
parent 3ab08f3896
commit 789c5c583c
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
mystic/mutil_echoexport.pas
View File

@ -29,13 +29,22 @@ Var
Begin
FileMode := 66;
{$I-}
log(3, '+', 'flo add: ' + floname + ' ' + packetfn);
Assign (T, FloName);
Reset (T);
{$I-} Reset (T); {$I+}
If IoResult <> 0 Then
ReWrite(T);
If IoResult <> 0 Then Begin
log(3, '+', 'flo reset failed');
{$I-} ReWrite(T); {$I+}
If IoResult <> 0 Then Begin
log(3, '+', 'unable to rewrite flo');
end;
Reset(T);
end;
While Not Eof(T) Do Begin
ReadLn (T, Str);
@ -48,7 +57,7 @@ Begin
log(3, '+', 'flo close and append');
Close (T);
// Close (T);
Append (T);
WriteLn (T, '^' + PacketFN);
Close (T);