瀏覽代碼

* Publish UseDollarString and DollarStrings properties

git-svn-id: trunk@33548 -
michael 9 年之前
父節點
當前提交
e78e4d0e72
共有 2 個文件被更改,包括 4 次插入0 次删除
  1. 2 0
      packages/fcl-db/src/base/sqlscript.pp
  2. 2 0
      packages/fcl-db/src/sqldb/sqldb.pp

+ 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;