ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/consolemode/project1.lpr
(Generate patch)

Comparing ibx/trunk/examples/consolemode/project1.lpr (file contents):
Revision 31 by tony, Tue Jul 14 15:31:25 2015 UTC vs.
Revision 33 by tony, Sat Jul 18 12:30:52 2015 UTC

# Line 117 | Line 117 | begin
117    FIBDatabase.DatabaseName := 'localhost:employee';
118    FIBDatabase.Params.Add('user_name=SYSDBA'); {You may have to modify this!}
119    FIBDatabase.Params.Add('password=masterkey');  {You may have to modify this!}
120 <  FIBDatabase.Params.Add('lc_ctype=UTF-8');
120 >  FIBDatabase.Params.Add('lc_ctype=UTF8');
121    FIBTransaction.DefaultDatabase := FIBDatabase;
122    DoQuery;
123  
# Line 148 | Line 148 | begin
148    Application:=TMyApplication.Create(nil);
149    Application.Title:='IBX In Console Mode';
150    Application.Run;
151 +  {$IFDEF WINDOWS}
152 +  Sleep(1000); {Gives a chance to see the program output}
153 +  {$ENDIF}
154    Application.Free;
155   end.
156  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines