掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
開放のタイミング (ID:15525)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> GListっていつ開放してあげれば セットした直後に開放します。 procedure TForm1.Button1Click(Sender: TObject); var sl: TStringList; begin sl := GetList; Form1.ListBox1.items.Assign (sl); sl.Free; end; でも、クラスのインスタンスを返す関数はあまりよい設計とはいえません。 わたしなら procedure TForm1.Button1Click(Sender: TObject); var sl: TStringList; begin sl := TStringList.Create; InitList(sl); Form1.ListBox1.items.Assign (sl); sl.Free; end; procedure TForm1.InitList(sl: TStringlist); var i:integer; begin sl.Clear; for i:=0 to 10 do sl.Add(Inttostr(i)); end; というふうにします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.