Changeset 2

Timestamp:

Apr 20, 2016, 6:29:54 PM (8 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)
• Acronyms.csv (added)
• Packages/synapse (modified) (1 prop)
• UFormImport.lfm (modified) (1 diff)
• UFormImport.pas (modified) (1 diff)
• UFormMain.pas (modified) (3 diffs)

trunk/UFormImport.lfm

@@ -13 +13 @@
     Top = 8
     Width = 107
-    Caption = 'Import'
+    Caption = 'Process'
     OnClick = ButtonImportClick
     TabOrder = 0

trunk/UFormImport.pas

@@ -68 +68 @@
     Line := Trim(Memo1.Lines[I]);
     if Copy(Line, 1, 1) = ';' then begin
-      AcronymName := Trim(Copy(Line, 2, Length(Line)));
+      if Pos(':', Line) > 0 then begin
+        AcronymName := Trim(Copy(Line, 2, Pos(':', Line) - 2));
+        Line := Copy(Line, Pos(':', Line), Length(Line));
+      end else AcronymName := Trim(Copy(Line, 2, Length(Line)));
     end;
     if Copy(Line, 1, 1) = ':' then begin

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;