1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
| program pslcl; // nouveau projet sqlazlcl du 04 février 2011 vers 14h00
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms,
uslcl,
udata,
uoutils,
ureorganiser,
ucorriger,
utransfert,
uservice,
urecherche,
uconsulter, uautomat, uarchiver, upointer, uentrer, uimporter;
{$R pslcl.res}
begin
Application.Initialize;
Application.CreateForm(TFslcl, Fslcl);
Application.CreateForm(TData, Data);
Application.CreateForm(TFreorganiser, Freorganiser);
Application.CreateForm(TFcorriger, Fcorriger);
Application.CreateForm(TFtransfert, Ftransfert);
Application.CreateForm(TFservice, Fservice);
Application.CreateForm(TFrecherche, Frecherche);
Application.CreateForm(TFconsulter, Fconsulter);
Application.CreateForm(TFautomat, Fautomat);
Application.CreateForm(TFarchiver, Farchiver);
Application.CreateForm(TFpointer, Fpointer);
Application.CreateForm(TFentrer, Fentrer);
Application.CreateForm(TFimporter, Fimporter);
Application.Run;
end. |
Partager