feat: List all or list with paging

history.md

@@ -1,3 +1,7 @@
+# [2022-05-17] First Release v0.1.1
+
+- List all or list with paging
+
 # [2022-05-17] First Release v0.1
 
 - Creates a database

release-notes.md

@@ -1,5 +1,3 @@
-# [2022-05-17] First Release v0.1
+# [2022-05-17] First Release v0.1.1
 
-- Creates a database
-- Inserts some entries
-- Lists the entries
+- List all or list with paging

src/forms/gnudbm.forms.main.pas

@@ -81,7 +81,9 @@ implementation
 
   cVersionMajor = 0;
   cVersionMinor = 1;
-  cVersion = '0.1';
+  cVersionBuild = 1;
+
+  cListAll = False;
 
 {$R *.lfm}
 
@@ -194,6 +196,12 @@ procedure TfrmMain.actGDBMListExecute(Sender: TObject);
     begin
       Inc(index);
       value:= gdbm_fetch(FDB, key);
+      if cListAll then
+      begin
+        memLog.Append(Format('%s - %s: %s', [FormatFloat(',0',index), key, value]));
+        Application.ProcessMessages;
+      end
+      else
       if (index = 1) or (index mod cEntryPaging = 0) then
       begin
         memLog.Append(Format('%s - %s: %s', [FormatFloat(',0',index), key, value]));
@@ -234,7 +242,7 @@ procedure TfrmMain.FormCreate(Sender: TObject);
   FInsertInProgress:= False;
   FInsertDone:= False;
 
-  Caption:= Format('Test GDBM v%s', [cVersion]);
+  Caption:= Format('Test GDBM v%d.%d.%d', [cVersionMajor, cVersionMinor, cVersionBuild]);
   edtDBFilename.Text:= cDefaultFilename;
 
   InitShortcuts;