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 Begin
FileMode := 66; FileMode := 66;
{$I-} log(3, '+', 'flo add: ' + floname + ' ' + packetfn);
Assign (T, FloName); Assign (T, FloName);
Reset (T); {$I-} Reset (T); {$I+}
If IoResult <> 0 Then If IoResult <> 0 Then Begin
ReWrite(T); 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 While Not Eof(T) Do Begin
ReadLn (T, Str); ReadLn (T, Str);
@ -48,7 +57,7 @@ Begin
log(3, '+', 'flo close and append'); log(3, '+', 'flo close and append');
Close (T); // Close (T);
Append (T); Append (T);
WriteLn (T, '^' + PacketFN); WriteLn (T, '^' + PacketFN);
Close (T); Close (T);