ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/dbInfo/Unit1.lfm
Revision: 62
Committed: Wed Apr 12 09:19:59 2017 UTC (7 years ago) by tony
File size: 940 byte(s)
Log Message:
Avoid "Object is nil" error when opening a database with DefaultSystemCodePage = true

File Contents

# User Rev Content
1 tony 62 object Form1: TForm1
2     Left = 363
3     Height = 339
4     Top = 171
5     Width = 487
6     Caption = 'Database Information'
7     ClientHeight = 339
8     ClientWidth = 487
9     OnShow = FormShow
10     LCLVersion = '1.6.4.0'
11     object Memo1: TMemo
12     Left = 12
13     Height = 302
14     Top = 18
15     Width = 461
16     Anchors = [akTop, akLeft, akRight, akBottom]
17     Lines.Strings = (
18     'Memo1'
19     )
20     ReadOnly = True
21     ScrollBars = ssAutoVertical
22     TabOrder = 0
23     end
24     object IBDatabase1: TIBDatabase
25     Connected = False
26     AfterConnect = IBDatabase1AfterConnect
27     CreateIfNotExists = False
28     AllowStreamedConnected = False
29     DatabaseName = 'localhost:employee'
30     Params.Strings = (
31     'lc_ctype=UTF8'
32     'user_name=SYSDBA'
33     )
34     IdleTimer = 0
35     TraceFlags = []
36     UseDefaultSystemCodePage = False
37     left = 280
38     top = 56
39     end
40     object IBDatabaseInfo1: TIBDatabaseInfo
41     Database = IBDatabase1
42     left = 328
43     top = 56
44     end
45     end