Add ChannelDefault Constant

diff --git a/bottleclient/BottleDef.pas b/bottleclient/BottleDef.pas
index d18e8d1..9a8a6cb 100755 (executable)
--- a/bottleclient/BottleDef.pas
+++ b/bottleclient/BottleDef.pas
@@ -313,6 +313,8 @@ const
   BottleDisclaimer = '(C)2001 - 2003 naru/Mikage Sawatari'#13#10 +
     DefaultHomePage;
 
+  ChannelDefault = '(CH\90\84\8f§)'; 
+
 implementation
 
 { TBottlePrefs }

diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas
index fb02af7..57ccab2 100755 (executable)
--- a/bottleclient/MainForm.pas
+++ b/bottleclient/MainForm.pas
@@ -2094,7 +2094,7 @@ begin
   with cbxTargetGhost do begin
     Items.BeginUpdate;
     Items.Clear;
-    Items.Add('(CH\90\84\8f§)');
+    Items.Add(ChannelDefault);
     for i := 0 to SakuraSeeker.Count-1 do begin
       // \94j\91¹FMO\91Î\8dô\81BHWND\82Ì\92f\95Ð\82ª\8ec\82Á\82Ä\82¢\82é\82ªName\82ª\8fÁ\82¦\82Ä\82¢\82é\8fê\8d\87\82ª\82 \82é
       if Length(SakuraSeeker[i].Name) = 0 then Continue;
@@ -2108,7 +2108,7 @@ begin
         cbxTargetGhost.Items.Add(SakuraSeeker[i].Name);
     end;
     cbxTargetGhost.ItemIndex := 0;
-    if (Length(Selected) > 0) and (Selected <> '(CH\90\84\8f§)') then begin
+    if (Length(Selected) > 0) and (Selected <> ChannelDefault) then begin
       with cbxTargetGhost do begin
         for i := 1 to Items.Count-1 do begin
           if Items[i] = Selected then