Export function now properly strips the TEMP node directory when displaying filename

This commit is contained in:
mysticbbs 2012-07-19 21:13:06 -04:00
parent 272dc1c6bf
commit e3726a40d1
1 changed files with 1 additions and 1 deletions

View File

@ -1230,7 +1230,7 @@ Var
If FN = '' Then Exit; If FN = '' Then Exit;
Session.io.PromptInfo[1] := JustFileName(FN); Session.io.PromptInfo[1] := JustFile(FN);
Assign (TF, FN); Assign (TF, FN);
{$I-} ReWrite (TF); {$I+} {$I-} ReWrite (TF); {$I+}