ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/fbintf/testsuite/test2.pas

Comparing ibx/trunk/fbintf/testsuite/test2.pas (file contents):
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 143 by tony, Fri Feb 23 12:11:21 2018 UTC

#	Line 97 | Line 97 | begin
97		end;
98		writeln(OutFile,'Opening ',Owner.GetEmployeeDatabaseName);
99		Attachment := FirebirdAPI.OpenDatabase(Owner.GetEmployeeDatabaseName,DPB);
100	<	writeln(OutFile,'Database Open');
100	>	writeln(OutFile,'Database Open, SQL Dialect = ',Attachment.GetSQLDialect);
101		DoQuery(Attachment);
102		Attachment.Disconnect;
103		end;

Diff Legend

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