firebird/firebird-mirror
firebird/firebird-mirror
8
0
Fork 1
mirror of https://github.com/FirebirdSQL/firebird.git synced 2025-01-22 18:43:02 +01:00
Code Issues

Misc changes in example

Browse Source
This commit is contained in:
alexpeshkoff 2016-02-23 16:53:32 +00:00
parent 7a7c6cb95b
commit 2e04326709
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/interfaces/01.create.pas
View File

@ -58,7 +58,7 @@ var
prov : IProvider;
// Attachment and Transaction contain methods to work with
// database attachment and transactions
// database attachment and transaction
att : IAttachment;
tra : ITransaction;
@ -100,6 +100,10 @@ begin
att.detach(st);
att := nil;
// remove unneeded any more tag from DPB
if dpb.findFirst(st, isc_dpb_page_size)
then dpb.removeCurrent(st);
// attach it once again
att := prov.attachDatabase(st, 'fbtests.fdb', dpb.getBufferLength(st), dpb.getBuffer(st));
writeln ('Re-attached database fbtests.fdb');