Export function now properly strips the TEMP node directory when displaying filename
This commit is contained in:
parent
272dc1c6bf
commit
e3726a40d1
|
@ -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+}
|
||||||
|
|
Loading…
Reference in New Issue