Changeset 2 for trunk/UFormMain.pas

Timestamp:

Apr 20, 2016, 6:29:54 PM (9 years ago)

Author:

chronos

Message:

• Added: Support for loading mediawiki acronyms placed on one line.
• Fixed: Do not try open non existent file.

Location:

trunk

Files:

• . (modified) (1 prop)
• UFormMain.pas (modified) (3 diffs)

trunk/UFormMain.pas

@@ -53 +53 @@
   UFormImport;
 
+const
+  DefaultFileName = 'Acronyms.csv';
+
 { TFormMain }
 
@@ -69 +72 @@
 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
-  AcronymDB.SaveToFile('Abbreviations.txt');
+  AcronymDB.SaveToFile(DefaultFileName);
 end;
 
@@ -101 +104 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
-  AcronymDB.LoadFromFile('Abbreviations.txt');
+  if FileExists(DefaultFileName) then
+    AcronymDB.LoadFromFile(DefaultFileName);
   AcronymDb.FilterList(EditSearch.Text, FoundAcronyms);
   UpdateAcronymsList;