Browse Source

* Default of verboseerrors set to true

git-svn-id: trunk@24154 -
michael 12 years ago
parent
commit
3a7611537c
1 changed files with 2 additions and 1 deletions
  1. 2 1
      packages/fcl-db/src/sqldb/postgres/pqconnection.pp

+ 2 - 1
packages/fcl-db/src/sqldb/postgres/pqconnection.pp

@@ -95,7 +95,7 @@ type
     property LoginPrompt;
     property LoginPrompt;
     property Params;
     property Params;
     property OnLogin;
     property OnLogin;
-    Property VerboseErrors : Boolean Read FVerboseErrors Write FVerboseErrors;
+    Property VerboseErrors : Boolean Read FVerboseErrors Write FVerboseErrors default true;
   end;
   end;
 
 
   { TPQConnectionDef }
   { TPQConnectionDef }
@@ -159,6 +159,7 @@ begin
   inherited;
   inherited;
   FConnOptions := FConnOptions + [sqSupportParams] + [sqEscapeRepeat] + [sqEscapeSlash];
   FConnOptions := FConnOptions + [sqSupportParams] + [sqEscapeRepeat] + [sqEscapeSlash];
   FieldNameQuoteChars:=DoubleQuotes;
   FieldNameQuoteChars:=DoubleQuotes;
+  VerboseErrors:=True;
 end;
 end;
 
 
 procedure TPQConnection.CreateDB;
 procedure TPQConnection.CreateDB;