・警告の排除。

[gikonavigoeson/gikonavi.git] / Setting.pas

diff --git a/Setting.pas b/Setting.pas
index 3a303eb..c187ea7 100644 (file)
--- a/Setting.pas
+++ b/Setting.pas
@@ -1247,6 +1247,7 @@ begin
        end;
 end;
 
+{$R-}
 //\83\8a\83X\83g\83J\83\89\83\80\83w\83b\83_\81[
 function TSetting.GetBBSColumnWidth(index: Integer): Integer;
 begin
@@ -1262,6 +1263,9 @@ function TSetting.GetBoardColumnWidth(index: Integer): Integer;
 begin
        Result := IfThen(index in [0..Length(FBoardColumnWidth) - 1], FBoardColumnWidth[index], 0);
 end;
+{$IFDEF DEBUG}
+{$R+}
+{$ENDIF}
 
 procedure TSetting.SetBBSColumnWidth(index: Integer; value: Integer);
 begin