diff options
Diffstat (limited to 'extras/tiopf/demos/Demo_07_VisitorBasics/demo_07.lpr')
-rw-r--r-- | extras/tiopf/demos/Demo_07_VisitorBasics/demo_07.lpr | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/extras/tiopf/demos/Demo_07_VisitorBasics/demo_07.lpr b/extras/tiopf/demos/Demo_07_VisitorBasics/demo_07.lpr deleted file mode 100644 index 125dd248..00000000 --- a/extras/tiopf/demos/Demo_07_VisitorBasics/demo_07.lpr +++ /dev/null @@ -1,39 +0,0 @@ -program demo_07; - -{$mode objfpc}{$H+} - -uses - {$IFDEF UNIX}{$IFDEF UseCThreads} - cthreads, - {$ENDIF}{$ENDIF} - Classes, fpg_main, frm_main, tiOIDGUID, tiOPFManager, Client_BOM; - - -procedure MainProc; -var - frm: TMainForm; -begin - fpgApplication.Initialize; - - // Change the connection string to suite your database location - // ** Remote connection - //gTIOPFManager.ConnectDatabase('192.168.0.54|/home/graemeg/programming/data/tiopf.fdb', 'sysdba', 'masterkey'); - // ** Local connection - //gTIOPFManager.ConnectDatabase('/home/graemeg/programming/data/tiopf.fdb', 'sysdba', 'masterkey'); - - frm := TMainForm.Create(nil); - try - frm.Show; - fpgApplication.Run; - finally - frm.Free; - //gTIOPFManager.DisconnectDatabase; - //gTIOPFManager.Terminate; - end; -end; - -begin - MainProc; -end. - - |