掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
関数でTStringListを返すには (ID：45694)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
関数内でできたTStringListを返すためには 関数内でFreeできないので、メモリリークを起こすのでは？ と思いますが・・・ //良い例？ procedure Kansuu(var sl: TStringList); begin sl.Add('aaa'); end; procedure TForm1.Button1Click(Sender: TObject); var sl: TStringList; begin sl := TStringList.Create; try Kansuu(sl); showmessage(sl[0]); finally sl.Free; end; end; //悪い例 procedure Kansuu2(var sl: TStringList); begin sl := TStringList.Create; try sl.Add('bbb'); finally //sl.Free; //これがあるとエラー。無いとメモリリーク end; end; procedure TForm1.Button2Click(Sender: TObject); var sl: TStringList; begin Kansuu2(sl); showmessage(sl[0]); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.