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

File Contents

# Content
1 program ViewDatabaseInfo;
2
3 {$mode objfpc}{$H+}
4
5 uses
6 {$IFDEF UNIX}{$IFDEF UseCThreads}
7 cthreads,
8 {$ENDIF}{$ENDIF}
9 Interfaces, // this includes the LCL widgetset
10 Forms, Unit1, ibexpress
11 { you can add units after this };
12
13 {$R *.res}
14
15 begin
16 RequireDerivedFormResource := True;
17 Application.Initialize;
18 Application.CreateForm(TForm1, Form1);
19 Application.Run;
20 end.
21