・警告の排除。

[gikonavigoeson/gikonavi.git] / GikoSystem.pas

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 59688c6..e36c678 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -3201,11 +3201,7 @@ end;
 procedure TGikoSys.ListBoardFile;
 var
        boardFileList   : TStringList;
-
-       i, iBound                       : Integer;
-       j, jBound                       : Integer;
-       k, kBound                       : Integer;
-       l, lBound                       : Integer;
+       i, l                                    : Integer;
 begin
 
   // BBS \82Ì\8aJ\95ú
@@ -3271,7 +3267,6 @@ var
        i, iBound                       : Integer;
        j, jBound                       : Integer;
        k, kBound                       : Integer;
-       l, lBound                       : Integer;
 begin
 
   if not FileExists( bbs.FilePath ) then