Changeset 52 for trunk/UAcronym.pas

Timestamp:

Jul 25, 2016, 5:37:39 PM (8 years ago)

Author:

chronos

Message:

• Added: Remember last import date for import sources.

File:

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

trunk/UAcronym.pas

@@ -181 +181 @@
     Sources: TImportSources;
     ItemCount: Integer;
+    LastImportTime: TDateTime;
     Categories: TAcronymCategories;
     UserName: string;
@@ -543 +544 @@
     else raise Exception.Create(SUnsupportedImportFormat);
   end;
+  LastImportTime := Now;
 end;
 
@@ -761 +763 @@
   UserName := Source.UserName;
   Password := Source.Password;
+  LastImportTime := Source.LastImportTime;
 end;
 
@@ -773 +776 @@
   WriteBoolean(Node, 'Enabled', Enabled);
   WriteInteger(Node, 'ItemCount', ItemCount);
+  WriteDateTime(Node, 'LastImportTime', LastImportTime);
   WriteString(Node, 'UserName', UserName);
 
@@ -790 +794 @@
   ItemCount := ReadInteger(Node, 'ItemCount', 0);
   UserName := ReadString(Node, 'UserName', '');
+  LastImportTime := ReadDateTime(Node, 'LastImportTime', 0);
 
   Categories.Db := Sources.AcronymDb;