From 5dddfd1768a112e120d7a014c50b04614c596110 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Wed, 9 Oct 2013 04:54:34 +0000
Subject: [PATCH] ExportStream is not assigned in all types of export targets,
 for example "clipboard". Do not determine filename in such cases. Fixes issue
 #3372.

---
 source/tabletools.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/source/tabletools.pas b/source/tabletools.pas
index 04a8c825..9efdd387 100644
--- a/source/tabletools.pas
+++ b/source/tabletools.pas
@@ -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