From: h677 <h677>
Date: Sat, 20 Nov 2004 13:14:40 +0000 (+0000)
Subject: デバッグ用のコードが入ってたので削除
X-Git-Tag: v1_64_1_820~711
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=0edeb273912f4b5907562fbe2c47abe30e783698;p=gikonavigoeson%2Fgikonavi.git

デバッグ用のコードが入ってたので削除
---

diff --git a/BoardGroup.pas b/BoardGroup.pas
index 8d52779..445078e 100644
--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -674,8 +674,6 @@ begin
 end;
 
 procedure TCategory.Delete(index: integer);
-var
-	i : integer;
 begin
 	if (Items[index] <> nil) then begin
 		try
@@ -684,7 +682,6 @@ begin
 			else
 				TBoard(Items[index]).Multiplicity := TBoard(Items[index]).Multiplicity - 1;
 		except
-			i :=index;
 		end;
 	end;
 	inherited Delete(index);