ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/testsuite/Test14.pas
(Generate patch)

Comparing ibx/trunk/fbintf/testsuite/Test14.pas (file contents):
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 308 by tony, Sat Jul 18 10:26:30 2020 UTC

# Line 111 | Line 111 | begin
111    DPB.Add(isc_dpb_lc_ctype).setAsString('UTF8');
112    DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(SQLDialect);
113    Attachment := FirebirdAPI.CreateDatabase(Owner.GetNewDatabaseName,DPB);
114 <  writeln(OutFile,'Default Character set Name = ',Attachment.OpenCursorAtStart('Select RDB$CHARACTER_SET_NAME From RDB$Database')[0].AsString);
114 >  writeln(OutFile,'Default Character set Name = ',Trim(Attachment.OpenCursorAtStart('Select RDB$CHARACTER_SET_NAME From RDB$Database')[0].AsString));
115    Attachment.ExecImmediate([isc_tpb_write,isc_tpb_wait,isc_tpb_consistency],sqlCreateTable);
116    Attachment.ExecImmediate([isc_tpb_write,isc_tpb_wait,isc_tpb_consistency],sqlCreateProc1);
117    Attachment.ExecImmediate([isc_tpb_write,isc_tpb_wait,isc_tpb_consistency],sqlCreateProc2);

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines