Changeset 8 for trunk/UCore.pas

Timestamp:

Feb 1, 2018, 12:51:32 PM (7 years ago)

Author:

chronos

Message:

• Added: Show all fields tab in contact form.

File:

• trunk/UCore.pas (modified) (4 diffs)

trunk/UCore.pas

@@ -82 +82 @@
   SAppExit = 'Application exit';
   SAppExitQuery = 'File was modified. Do you want to save it before exit?';
+  SFileNotFound = 'File ''%s'' not found.';
 
 { TCore }
@@ -188 +189 @@
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
+  FileClose;
   SaveConfig;
 end;
@@ -204 +206 @@
 procedure TCore.FileOpen(FileName: string);
 begin
-  FileClose;
-  if FileClosed then begin
-    FileNew;
-    DataFile.LoadFromFile(FileName);
-    LastOpenedList1.AddItem(FileName);
-  end;
+  if FileExists(FileName) then begin
+    FileClose;
+    if FileClosed then begin
+      FileNew;
+      DataFile.LoadFromFile(FileName);
+      LastOpenedList1.AddItem(FileName);
+    end;
+  end else ShowMessage(Format(SFileNotFound, [FileName]));
 end;
 
@@ -232 +236 @@
   end else DoClose := True;
   if DoClose then begin
-    FreeAndNil(DataFile);
+    if Assigned(DataFile) then FreeAndNil(DataFile);
     FileClosed := True;
   end;