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

29 lines
512 B
ObjectPascal

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.