ExportStream is not assigned in all types of export targets, for example "clipboard". Do not determine filename in such cases. Fixes issue #3372.

This commit is contained in:
Ansgar Becker
2013-10-09 04:54:34 +00:00
parent 88456343ba
commit 5dddfd1768

View File

@@ -668,7 +668,8 @@ begin
if comboExportOutputType.Text = OUTPUT_CLIPBOARD then
StreamToClipboard(ExportStream, nil, false);
FileName := TFileStream(ExportStream).FileName;
if comboExportOutputType.Text = OUTPUT_FILE_COMPRESSED then
FileName := TFileStream(ExportStream).FileName;
FreeAndNil(ExportStream);
if comboExportOutputType.Text = OUTPUT_FILE_COMPRESSED then begin