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, 7 months ago) by tony
File size: 940 byte(s)
Log Message:
Avoid "Object is nil" error when opening a database with DefaultSystemCodePage = true

File Contents

# Content
1 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