source upload

2022-01-17 22:16:47 +02:00
parent 12936d065b
commit 098e8c48de
1778 changed files with 1206749 additions and 0 deletions
--- a/contrib/mORMot/SQLite3/Samples/15
+++ b/contrib/mORMot/SQLite3/Samples/15
@@ -0,0 +1,21 @@
+program PerfTest;
+
+//   first line of uses clause must be   {$I SynDprUses.inc}
+uses
+  {$I SynDprUses.inc}
+  // SynFastWideString, // still works with fast WideString, and slightly faster
+  Forms,
+  {$ifdef FPC}
+  Interfaces,
+  {$endif}
+  PerfMain in 'PerfMain.pas' {MainForm};
+
+{$ifndef FPC}
+{$R *.res}
+{$endif}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TMainForm, MainForm);
+  Application.Run;
+end.