ViewVC Help

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

root/public/ibx/trunk/examples/dbInfo/Unit1.pas

Comparing ibx/trunk/examples/dbInfo/Unit1.pas (file contents):
Revision 265 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 266 by tony, Wed Dec 26 18:34:32 2018 UTC

#	Line 84 | Line 84 | begin
84		end;
85
86		procedure TForm1.IBDatabase1AfterConnect(Sender: TObject);
87	+	var S: TStrings;
88		begin
89		IBTransaction1.Active := true;
90		TableNameLookup.Active := true;
91		Memo1.Lines.Add('Authentication Method = '+ IBDatabase1.AuthenticationMethod);
92		Memo1.Lines.Add('Remote Protocol = ' + IBDatabase1.RemoteProtocol);
93		Memo1.Lines.Add('Attachment SQLDialect = ' + IntToStr(IBDatabase1.DBSQLDialect));
94	+	S := TStringList.Create;
95	+	try
96	+	IBDatabase1.Attachment.getFBVersion(S);
97	+	Memo1.Lines.AddStrings(S);
98	+	finally
99	+	S.Free;
100	+	end;
101		with IBDatabaseInfo1 do
102		begin
103		Memo1.Lines.Add('Firebird Library Pathname = ' + IBDatabase1.FirebirdAPI.GetFBLibrary.GetLibraryFilePath);

Diff Legend

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