微小修正(begin取り)

diff --git a/bottleclient/Logs.pas b/bottleclient/Logs.pas
index 0dcda69..c07b840 100755 (executable)
--- a/bottleclient/Logs.pas
+++ b/bottleclient/Logs.pas
@@ -376,13 +376,10 @@ var i: integer;
 begin
   // \82±\82Ì\83\8d\83O\92\86\82Ì\83`\83\83\83\93\83l\83\8b\82ð\8eæ\82è\8fo\82·
   // TStrings\82Ì\8eÀ\91\95\82ÍTHashedStringList\90\84\8f§
-  for i := 0 to Count-1 do begin
-    if Bottles[i].Channel <> '' then begin
-      if Target.IndexOf(Bottles[i].Channel) < 0 then begin
+  for i := 0 to Count-1 do
+    if Target.IndexOf(Bottles[i].Channel) < 0 then
+      if Bottles[i].Channel <> '' then
         Target.Add(Bottles[i].Channel);
-      end;
-    end;
-  end;
 end;
 
 procedure TBottleLogList.ExtractUniqueGhosts(Target: TStrings);
@@ -390,13 +387,10 @@ var i: integer;
 begin
   // \82±\82Ì\83\8d\83O\92\86\82Ì\83S\81[\83X\83g\82ð\8eæ\82è\8fo\82·
   // TStrings\82Ì\8eÀ\91\95\82ÍTHashedStringList\90\84\8f§
-  for i := 0 to Count-1 do begin
-    if Bottles[i].Ghost <> '' then begin
-      if Target.IndexOf(Bottles[i].Ghost) < 0 then begin
+  for i := 0 to Count-1 do
+    if Target.IndexOf(Bottles[i].Ghost) < 0 then
+      if Bottles[i].Ghost <> '' then
         Target.Add(Bottles[i].Ghost);
-      end;
-    end;
-  end;
 end;
 
 function TBottleLogList.GetBottles(Index: integer): TLogItem;