summaryrefslogtreecommitdiff
path: root/extras/tiopf/demos/Demo_07_VisitorBasics/demo_07.lpr
diff options
context:
space:
mode:
Diffstat (limited to 'extras/tiopf/demos/Demo_07_VisitorBasics/demo_07.lpr')
-rw-r--r--extras/tiopf/demos/Demo_07_VisitorBasics/demo_07.lpr39
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.
-
-