Freeについて (ID:24639)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ではですね、 procedure TForm1.Button1Click(Sender: TObject); var list: TStringList; index: Integer; i: Integer; begin list := TStringList.Create; list.Add('Hello'); list.Add('hoge'); list.Add('Good'); list.Add('Delphi'); list.Sort; if list.Find('hoge', index) then ShowMessage(IntToStr(index)); for i := 0 to list.Count-1 do ListBox1.Items.Add(list.Strings[i]); list.Free; end; で、listの何がなかったことになったのですか？ あとですね、showmessageで、”3”と表示されたのですが、なぜ3なのかわかりません。listbox1に表示されたのは Delphi Good Hello hoge でした。