Changeset 8 for trunk/UAcronym.pas

Timestamp:

Apr 21, 2016, 1:12:45 PM (8 years ago)

Author:

chronos

Message:

• Added: Also allow to edit acronym detailed description.
• Added: Import from CSV file.

File:

• trunk/UAcronym.pas (modified) (5 diffs)

trunk/UAcronym.pas

@@ -30 +30 @@
   TAcronymMeaning = class
     Name: string;
+    Description: string;
     Language: string;
     Acronym: TAcronym;
@@ -71 +72 @@
     Name: string;
     Meaning: string;
+    Description: string;
   end;
 
@@ -86 +88 @@
     procedure SaveToFile(FileName: string);
     procedure FilterList(AName: string; Items: TAcronymMeanings);
-    procedure AddAcronym(AcronymName, MeaningName: string);
+    function AddAcronym(AcronymName, MeaningName: string): TAcronymMeaning;
     procedure RemoveAcronym(AcronymName, MeaningName: string);
   end;
@@ -324 +326 @@
 end;
 
-procedure TAcronymDb.AddAcronym(AcronymName, MeaningName: string);
+function TAcronymDb.AddAcronym(AcronymName, MeaningName: string): TAcronymMeaning;
 var
   Acronym: TAcronym;
@@ -342 +344 @@
     Acronym.Meanings.Add(Meaning);
   end;
+  Result := Meaning;
   Modified := True;
 end;