Преглед на файлове

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