Changeset 6 for trunk/UAcronym.pas

Timestamp:

Apr 21, 2016, 10:22:08 AM (9 years ago)

Author:

chronos

Message:

• Added: Acronyms can be loaded from/saved to different files.
• Added: Application remembers list of last used files.
• Added: Show question dialog on exit if acronyms were modified.

File:

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

trunk/UAcronym.pas

@@ -76 +76 @@
 
   TAcronymDb = class
+    FileName: string;
     Sources: TObjectList; // TObjectList<TAcronymSource>
     Acronyms: TAcronyms;
     Contexts: TAcronymContexts;
+    Modified: Boolean;
     constructor Create;
     destructor Destroy; override;
@@ -222 +224 @@
   AcronymContext: TAcronymContext;
 begin
+  Self.FileName := FileName;
   Acronyms.Clear;
   F := TStringList.Create;
@@ -261 +264 @@
     Context.Free;
   end;
+  Modified := False;
 end;
 
@@ -272 +276 @@
   Context: TStringList;
 begin
+  Self.FileName := FileName;
   F := TStringList.Create;
   Line := TStringList.Create;
@@ -299 +304 @@
     Context.Free;
   end;
+  Modified := False;
 end;
 
@@ -336 +342 @@
     Acronym.Meanings.Add(Meaning);
   end;
+  Modified := True;
 end;
 
@@ -352 +359 @@
     end;
   end;
+  Modified := True;
 end;