Changeset 98 for trunk/Forms/UFormExport.pas

Timestamp:

Aug 27, 2016, 8:58:18 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Wrong access to main thread from export jobs causing exception.
• Fixed: Build under linux.

File:

• trunk/Forms/UFormExport.pas (modified) (8 diffs)

trunk/Forms/UFormExport.pas

@@ -24 +24 @@
   private
     ItemCount: Integer;
+    Content: string;
     procedure JobExportCSV(Job: TJob);
     procedure JobExportMediaWiki(Job: TJob);
@@ -66 +67 @@
   I: Integer;
   J: Integer;
-  Content: string;
 begin
   Job.Progress.Max := Core.AcronymDb.Acronyms.Count;
@@ -81 +81 @@
     if Job.Terminate then Break;
   end;
-  Memo1.Lines.Text := Content;
 end;
 
@@ -88 +87 @@
   I: Integer;
   J: Integer;
-  Content: string;
 begin
   Job.Progress.Max := Core.AcronymDb.Acronyms.Count;
@@ -104 +102 @@
     if Job.Terminate then Break;
   end;
-  Memo1.Lines.Text := Content;
 end;
 
@@ -112 +109 @@
   J: Integer;
   Line: string;
-  Content: string;
 begin
   Job.Progress.Max := Core.AcronymDb.Acronyms.Count;
@@ -131 +127 @@
   end;
   Content := Content + '|}' + LineEnding;
-  Memo1.Lines.Text := Content;
 end;
 
@@ -143 +138 @@
     Core.JobProgressView1.AddJob(SExporting, JobExportMediaWikiTable);
   Core.JobProgressView1.Start;
+  Memo1.Lines.Text := Content;
   ShowMessage(Format(SExportedAcronyms, [ItemCount]));
 end;