Catch invalid base64 when loading notes.

Villavu · Jul 11, 2016 · ca60baa · ca60baa
1 parent c2a32e7
commit ca60baa
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/Projects/Simba/simbaunit.pas b/Projects/Simba/simbaunit.pas
@@ -3060,10 +3060,14 @@ procedure TSimbaForm.FormCreate(Sender: TObject);
   if SimbaSettings.Oops then
     formWriteln('WARNING: No permissions to write to ' + SimbaSettingsFile);
 
-  NotesMemo.Lines.Text := DecompressString(Base64Decode(SimbaSettings.Notes.Content.Value));
-  NotesMemo.Visible := SimbaSettings.Notes.Visible.Value;
-  NotesSplitter.Visible := SimbaSettings.Notes.Visible.Value;
-  ActionNotes.Checked := SimbaSettings.Notes.Visible.Value;
+  try
+    NotesMemo.Lines.Text := DecompressString(Base64Decode(SimbaSettings.Notes.Content.Value));
+    NotesMemo.Visible := SimbaSettings.Notes.Visible.Value;
+    NotesSplitter.Visible := SimbaSettings.Notes.Visible.Value;
+    ActionNotes.Checked := SimbaSettings.Notes.Visible.Value;
+  except
+    formWriteln('There was an issue loading Notes.');
+  end;
 
   HandleParameters;
   FillThread.Start;