source upload

contrib/mORMot/SQLite3/Samples/14 - Interface based services/Project14Client.dpr

@@ -0,0 +1,28 @@
+program Project14Client;
+
+{$ifdef Linux}
+  {$ifdef FPC_CROSSCOMPILING}
+    {$linklib libc_nonshared.a}
+  {$endif}
+{$endif}
+
+{$I Synopse.inc}
+
+uses
+  {$I SynDprUses.inc} // use FastMM4 on older Delphi, or set FPC threads
+  Forms,
+  {$ifdef FPC}
+  Interfaces,
+  {$endif}
+  Project14ClientMain in 'Project14ClientMain.pas' {Form1},
+  Project14Interface in 'Project14Interface.pas';
+
+{$ifndef FPC}
+{$R *.res}
+{$endif}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.