소스 검색

* Default of verboseerrors set to true

git-svn-id: trunk@24154 -
michael 12 년 전
부모
커밋
3a7611537c
1개의 변경된 파일2개의 추가작업 그리고 1개의 파일을 삭제
  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 Params;
     property OnLogin;
-    Property VerboseErrors : Boolean Read FVerboseErrors Write FVerboseErrors;
+    Property VerboseErrors : Boolean Read FVerboseErrors Write FVerboseErrors default true;
   end;
 
   { TPQConnectionDef }
@@ -159,6 +159,7 @@ begin
   inherited;
   FConnOptions := FConnOptions + [sqSupportParams] + [sqEscapeRepeat] + [sqEscapeSlash];
   FieldNameQuoteChars:=DoubleQuotes;
+  VerboseErrors:=True;
 end;
 
 procedure TPQConnection.CreateDB;