2010-01-29 TStringListのささやかな新機能。 Delphi TIPS エターナルフォースOwnsObjects*1! type TStringList = class(TStrings) ... constructor Create(OwnsObjects: Boolean); overload; ... end; Create時にTrueを指定しておくと、Freeをしたその一瞬でObjectsプロパティに含まれるインスタンスを解放させる*2。 相手は死ぬ。 *1:ちなみにまじめな話も書いておくと、Delphi2009から存在する模様 *2:Delete時なども同様、要するにTObjectListの機能そのまま