Delphi：TStringList.Contains？

Delphi 2007中是否有任何集成解决方案来检查TStringList是否包含某个值的一部分？

例如.：

List.Addobject('This is a string',customStringObject1); 
List.Addobject('This is a mushroom',customStringObject2); 
List.Addobject('Random stuff',customStringObject3);

搜索“这是一个”应该给我“真实”,因为前两个元素包含这个部分.

到目前为止我唯一知道的方法是TStringList.find(字符串,整数),但这会执行一个完整的字符串比较,即只搜索这是一个字符串将返回true.

有什么建议？

解决方法

未集成,但您可以在Text属性上使用Pos函数：

Pos('This is a',List.Text)

如果你想要它被集成,你可以为TStrings创建一个类助手.