掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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 でした。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.