Forráskód Böngészése

* Default of verboseerrors set to true

git-svn-id: trunk@24154 -
michael 12 éve
szülő
commit
3a7611537c

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