From 37d3077c50ce614c849c0fcab07b5e0ee05f53b5 Mon Sep 17 00:00:00 2001 From: joost Date: Mon, 11 Jul 2005 13:45:39 +0000 Subject: [PATCH] Merged revisions 616 via svnmerge from /trunk git-svn-id: branches/fixes_2_0@617 - --- fcl/db/sqldb/sqldb.pp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fcl/db/sqldb/sqldb.pp b/fcl/db/sqldb/sqldb.pp index 97795e9644..7596c0e0ab 100644 --- a/fcl/db/sqldb/sqldb.pp +++ b/fcl/db/sqldb/sqldb.pp @@ -199,6 +199,7 @@ type destructor Destroy; override; procedure SetSchemaInfo( SchemaType : TSchemaType; SchemaObjectName, SchemaPattern : string); virtual; function CreateBlobStream(Field: TField; Mode: TBlobStreamMode): TStream; override; + property Prepared : boolean read IsPrepared; published // redeclared data set properties property Active; @@ -237,7 +238,6 @@ type property Params : TParams read FParams write FParams; property UpdateMode : TUpdateMode read FUpdateMode write SetUpdateMode; property UsePrimaryKeyAsKey : boolean read FUsePrimaryKeyAsKey write SetUsePrimaryKeyAsKey; - property Prepared : boolean read IsPrepared; property StatementType : TStatementType read GetStatementType; // property SchemaInfo : TSchemaInfo read FSchemaInfo default stNoSchema; end;