Implemented ExtractUniqueGhosts and ExtractUniqueChannels functions

diff --git a/bottleclient/Logs.pas b/bottleclient/Logs.pas
index 065e034..2c5c483 100755 (executable)
--- a/bottleclient/Logs.pas
+++ b/bottleclient/Logs.pas
@@ -157,6 +157,8 @@ type
     procedure LoadFromXMLFile(const FileName: String);
     procedure SaveToHTML(const FileName: String;
       const Options: THTMLOutputOptions; SsParser: TSsParser);
+    procedure ExtractUniqueChannels(Target: TStrings);
+    procedure ExtractUniqueGhosts(Target: TStrings);
     property OnHTMLOutputWork: TBottleLogHTMLOutputWork read FOnHTMLOutputWork write SetOnHTMLOutputWork;
   end;
 
@@ -369,6 +371,26 @@ begin
   if Assigned(FOnLoadFailure) then FOnLoadFailure(self, ErrorMessage);
 end;
 
+procedure TBottleLogList.ExtractUniqueChannels(Target: TStrings);
+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);
+end;
+
+procedure TBottleLogList.ExtractUniqueGhosts(Target: TStrings);
+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);
+end;
+
 function TBottleLogList.GetBottles(Index: integer): TLogItem;
 begin
   Result := Items[Index] as TLogItem;