examples/dbInfo/ViewDatabaseInfo.lpr

program ViewDatabaseInfo;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, Unit1, ibexpress
  { you can add units after this };

{$R *.res}

begin
  RequireDerivedFormResource := True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Revision:	62
Committed:	Wed Apr 12 09:19:59 2017 UTC (7 years, 7 months ago) by tony
File size:	380 byte(s)
Log Message:	Avoid "Object is nil" error when opening a database with DefaultSystemCodePage = true
#	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