Merged revisions 11843,11848,11872,11876-11878,11881-11883,11889,11891-11895,11897 via svnmerge from

svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
  r11843 | joost | 2008-09-30 15:20:42 +0200 (Tue, 30 Sep 2008) | 1 line
  
   * If InitDebugClient fails, do not try to write a debug-message
........
  r11897 | joost | 2008-10-14 11:08:31 +0200 (Tue, 14 Oct 2008) | 1 line
  
   * Implemented TNumericField.GetAsboolean
........

git-svn-id: branches/fixes_2_2@12251 -

packages/fcl-db/src/base/db.pas

@@ -506,6 +506,7 @@ type
     procedure RangeError(AValue, Min, Max: Double);
     procedure SetDisplayFormat(const AValue: string);
     procedure SetEditFormat(const AValue: string);
+    function GetAsBoolean: Boolean; override;
   public
     constructor Create(AOwner: TComponent); override;
   published

packages/fcl-process/src/dbugintf.pp

@@ -86,7 +86,7 @@ begin
   if DebugDisabled then exit;
   try
     If (DebugClient=Nil) then
-      InitDebugClient;
+      if InitDebugClient = false then exit;
     if (Indent>0) then
       Msg.Msg:=StringOfChar(' ',Indent)+Msg.Msg;
     WriteMessage(Msg);