From 9087b90e743108bfbd836b0987729e0833618308 Mon Sep 17 00:00:00 2001
From: naru <bottle@mikage.to>
Date: Fri, 9 May 2003 06:23:25 +0000
Subject: [PATCH] Object constructor is called before a try block

---
 bottleclient/MainForm.pas | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas
index 57ccab2..97b76d0 100755
--- a/bottleclient/MainForm.pas
+++ b/bottleclient/MainForm.pas
@@ -1596,6 +1596,8 @@ begin
         Tabs.Add(JoinChannels[i]);
     end;
     Tabs.EndUpdate;
+    // Œ³‚©‚çƒ`ƒƒƒ“ƒlƒ‹‚ÉŽQ‰Á‚µ‚Ä‚¢‚½ê‡‚Í
+    // ‘I‘ð‚³‚ê‚Ä‚¢‚½ƒ`ƒƒƒ“ƒlƒ‹‚ª•Ï‚í‚ç‚È‚¢‚悤‚É‚·‚é(ƒ^ƒu‚ª‚¸‚ê‚È‚¢ˆ—)
     TabIndex := 0;
     for i := 0 to Tabs.Count-1 do
       if Tabs[i] = FNowChannel then TabIndex := i;
@@ -1900,9 +1902,8 @@ procedure TfrmSender.PostSetChannel(Channels: TStrings);
 var PostStr: TStringList;
     i: integer;
 begin
-  PostStr := nil;
+  PostStr := TStringList.Create;
   try
-    PostStr := TStringList.Create;
     with PostStr do begin
       Add('Command: setChannels');
       Add('Agent: ' + VersionString);
@@ -1922,12 +1923,17 @@ procedure TfrmSender.mnLeaveThisChannelClick(Sender: TObject);
 var Ch: String;
     Chs: TStringList;
 begin
-  with tabChannel do Ch := Tabs[Tag];
-  Chs := nil;
+  // Žw’肵‚½ƒ`ƒƒƒ“ƒlƒ‹‚©‚甲‚¯‚é
+  with tabChannel do
+    Ch := Tabs[Tag]; // ”²‚¯‚½‚¢ƒ`ƒƒƒ“ƒlƒ‹–¼
+  Chs := TStringList.Create;
+
+  // Œ»ÝŽQ‰Á’†‚̃`ƒƒƒ“ƒlƒ‹‚©‚çA”²‚¯‚½‚¢ƒ`ƒƒƒ“ƒlƒ‹‚ð
+  // ŠO‚µ‚½ƒŠƒXƒg‚ŁAV‚½‚Ƀ`ƒƒƒ“ƒlƒ‹ŽQ‰ÁƒRƒ}ƒ“ƒh‚ð‘—‚é
   try
-    Chs := TStringList.Create;
     Chs.Assign(JoinChannels);
-    while Chs.IndexOf(Ch) >= 0 do Chs.Delete(Chs.IndexOf(Ch));
+    while Chs.IndexOf(Ch) >= 0 do
+      Chs.Delete(Chs.IndexOf(Ch));
     PostSetChannel(Chs);
   finally
     Chs.Free;
-- 
2.11.0