・try 構文が正しく機能するように修正。

[gikonavigoeson/gikonavi.git] / ExternalBoardManager.pas

diff --git a/ExternalBoardManager.pas b/ExternalBoardManager.pas
index eb95992..56f6432 100644 (file)
--- a/ExternalBoardManager.pas
+++ b/ExternalBoardManager.pas
@@ -385,12 +385,12 @@ var
 begin
 
        if Assigned( FGetRes ) then begin
-                               try
-                       tmp                     := FGetRes( threadItem, inNo );
+               tmp                     := FGetRes( threadItem, inNo );
+               try
                        Result  := string( tmp );
-                               finally
+               finally
                        DisposeResultString( tmp );
-                               end;
+               end;
        end;
 
 end;
@@ -407,8 +407,8 @@ var
 begin
 
        if Assigned( FGetHeader ) then begin
+               tmp                     := FGetHeader( threadItem, PChar( inOptionalHeader ) );
                try
-                       tmp                     := FGetHeader( threadItem, PChar( inOptionalHeader ) );
                        Result  := string( tmp );
                finally
                        DisposeResultString( tmp );