・TBoardPlugIn のメンバが異常時に初期化されないことがあったので修正。

[gikonavigoeson/gikonavi.git] / ExternalBoardManager.pas

diff --git a/ExternalBoardManager.pas b/ExternalBoardManager.pas
index 3b961a3..fe00847 100644 (file)
--- a/ExternalBoardManager.pas
+++ b/ExternalBoardManager.pas
@@ -117,6 +117,8 @@ type
                FGetFooter                                      : TThreadItemOnGetFooter;
 
        public
+               // \83R\83\93\83X\83g\83\89\83N\83^
+               constructor     Create;
                // \83v\83\89\83O\83C\83\93\82Ì\83p\83X\82ð\8ew\92è\82µ\82Ä\8dì\90¬
                constructor     CreateFromPath( inPath : string );
                // \83v\83\89\83O\83C\83\93\96¼\82ð\8ew\92è\82µ\82Ä\8dì\90¬
@@ -219,6 +221,25 @@ end;
 // =========================================================================
 
 // *************************************************************************
+// \83R\83\93\83X\83g\83\89\83N\83^
+// *************************************************************************
+constructor    TBoardPlugIn.Create;
+begin
+
+       inherited;
+
+       FVersionInfo                            := nil;
+       FAcceptURL                                      := nil;
+       FCreateThreadItem               := nil;
+       FDisposeThreadItem      := nil;
+       FDownload                                               := nil;
+       FGetRes                                                 := nil;
+       FGetHeader                                      := nil;
+       FGetFooter                                      := nil;
+
+end;
+
+// *************************************************************************
 // \83v\83\89\83O\83C\83\93\82Ì\83p\83X\82ð\8ew\92è\82µ\82Ä\8dì\90¬
 // *************************************************************************
 constructor    TBoardPlugIn.CreateFromPath(
@@ -226,7 +247,7 @@ constructor TBoardPlugIn.CreateFromPath(
 );
 begin
 
-       inherited Create;
+       Create;
 
        LoadFromPath( inPath );
 
@@ -240,7 +261,7 @@ constructor TBoardPlugIn.CreateFromName(
 );
 begin
 
-       inherited Create;
+       Create;
 
        LoadFromName( inName );