Thread-safe FloatToSQLStr; StepAndReset -> func

Examples/Delphi/Main.pas

@@ -3,8 +3,7 @@ unit Main;
 interface
 
 uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, ExtCtrls;
+  Windows, SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
 
 type
   TForm_Main = class(TForm)
@@ -35,7 +34,8 @@ begin
   // Delete database if it already exists
   DeleteFile('artists.db');
 
-  // Create datatbase and fill it with example data
+  // Create database and fill it with example data
+  Screen.Cursor := crHourGlass;
   DB := TSQLite3Database.Create;
   try
     DB.Open('artists.db');
@@ -163,8 +163,11 @@ begin
     finally
       Stmt.Free;
     end;
+
+    ShowMessage('Database created.');
   finally
     DB.Free;
+    Screen.Cursor := crDefault;
   end;
 end;