Explorar o código

* Publish UseDollarString and DollarStrings properties

git-svn-id: trunk@33548 -
michael %!s(int64=9) %!d(string=hai) anos
pai
achega
e78e4d0e72

+ 2 - 0
packages/fcl-db/src/base/sqlscript.pp

@@ -124,6 +124,8 @@ type
     property Aborted;
     property Line;
   published
+    Property UseDollarString;
+    Property DollarStrings;
     property Directives;
     property Defines;
     property Script;

+ 2 - 0
packages/fcl-db/src/sqldb/sqldb.pp

@@ -693,6 +693,8 @@ type
     Property DataBase : TDatabase Read FDatabase Write SetDatabase;
     Property Transaction : TDBTransaction Read FTransaction Write SetTransaction;
     property OnDirective: TSQLScriptDirectiveEvent read FOnDirective write FOnDirective;
+    Property UseDollarString; 
+    Property DollarStrings;     
     property Directives;
     property Defines;
     property Script;