Changeset 86 for trunk/Forms/UFormImport.pas

Timestamp:

Aug 8, 2016, 1:41:25 PM (8 years ago)

Author:

chronos

Message:

• Modified: Non-visual code moved from FormMain to Core data module.

File:

• trunk/Forms/UFormImport.pas (modified) (5 diffs)

trunk/Forms/UFormImport.pas

@@ -37 +37 @@
 
 uses
-  UFormMain;
+  UCore;
 
 resourcestring
@@ -79 +79 @@
       AcronymMeaning := Trim(Copy(Line, 2, Length(Line)));
       if (AcronymName <> '') and (AcronymMeaning <> '') then begin
-        Acronym := FormMain.AcronymDb.Acronyms.SearchByName(AcronymName);
+        Acronym := Core.AcronymDb.Acronyms.SearchByName(AcronymName);
         if not Assigned(Acronym) then begin
           Acronym := TAcronym.Create;
           Acronym.Name := AcronymName;
-          FormMain.AcronymDb.Acronyms.Add(Acronym);
+          Core.AcronymDb.Acronyms.Add(Acronym);
         end;
         Meaning := Acronym.Meanings.SearchByName(AcronymMeaning);
@@ -96 +96 @@
     end;
   end;
-  if AddedCount > 0 then FormMain.AcronymDb.Modified := True;
+  if AddedCount > 0 then Core.AcronymDb.Modified := True;
   ShowMessage(Format(SImportedNewAcronyms, [AddedCount]));
 end;
@@ -125 +125 @@
       else AcronymDescription := '';
     if (AcronymName <> '') and (AcronymDescription <> '') then begin
-      Acronym := FormMain.AcronymDb.Acronyms.SearchByName(AcronymName);
+      Acronym := Core.AcronymDb.Acronyms.SearchByName(AcronymName);
       if not Assigned(Acronym) then begin
         Acronym := TAcronym.Create;
         Acronym.Name := AcronymName;
-        FormMain.AcronymDb.Acronyms.Add(Acronym);
+        Core.AcronymDb.Acronyms.Add(Acronym);
       end;
       Meaning := Acronym.Meanings.SearchByName(AcronymDescription);
@@ -143 +143 @@
   end;
   Columns.Free;
-  if AddedCount > 0 then FormMain.AcronymDb.Modified := True;
+  if AddedCount > 0 then Core.AcronymDb.Modified := True;
   ShowMessage(Format(SImportedNewAcronyms, [AddedCount]));
 end;