[JVCL-Checkins] dev/JVCL3/run JvInspDB.pas,1.9,1.10 - Fixed endless recursion problem with creating and registerin

[Marcel B. <jed...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29458

Modified Files:
	JvInspDB.pas 
Log Message:
Fixed endless recursion problem with creating and registering the fieldkind to typeinfo mapping.


Index: JvInspDB.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvInspDB.pas,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** JvInspDB.pas	27 Feb 2004 14:13:09 -0000	1.9
--- JvInspDB.pas	4 May 2004 19:12:49 -0000	1.10
***************
*** 451,458 ****
    if GlobalMapReg = nil then
    begin
-     RegisterDBTypes; // register
- 
      GlobalMapReg := TJvInspectorRegister.Create(TJvCustomInspectorData);
      AddFinalizeObjectNil(sUnitName, TObject(GlobalMapReg));
    end;
    Result := GlobalMapReg;
--- 451,457 ----
    if GlobalMapReg = nil then
    begin
      GlobalMapReg := TJvInspectorRegister.Create(TJvCustomInspectorData);
      AddFinalizeObjectNil(sUnitName, TObject(GlobalMapReg));
+     RegisterDBTypes; // register
    end;
    Result := GlobalMapReg;