システムログ等ゴースト名が空のログが存在する時の対策処理を追加

diff --git a/bottleclient/Logs.pas b/bottleclient/Logs.pas
index 2c5c483..e431df8 100755 (executable)
--- a/bottleclient/Logs.pas
+++ b/bottleclient/Logs.pas
@@ -376,9 +376,13 @@ 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
-    if Target.IndexOf(Bottles[i].Channel) < 0 then
-      Target.Add(Bottles[i].Channel);
+  for i := 0 to Count-1 do begin
+    if Length(Bottles[i].Channel) > 0 then begin
+      if Target.IndexOf(Bottles[i].Channel) < 0 then begin
+        Target.Add(Bottles[i].Channel);
+      end;
+    end;
+  end;
 end;
 
 procedure TBottleLogList.ExtractUniqueGhosts(Target: TStrings);
@@ -386,9 +390,13 @@ 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
-    if Target.IndexOf(Bottles[i].Ghost) < 0 then
-      Target.Add(Bottles[i].Ghost);
+  for i := 0 to Count-1 do begin
+    if Length(Bottles[i].Ghost) > 0 then begin
+      if Target.IndexOf(Bottles[i].Ghost) < 0 then begin
+        Target.Add(Bottles[i].Ghost);
+      end;
+    end;
+  end;
 end;
 
 function TBottleLogList.GetBottles(Index: integer): TLogItem;