@请问测试字符串s1包含字符串s2的Delphi语句怎么写？急！
请问测试字符串s1包含字符串s2的Delphi语句怎么写？急！答对即送分！ 问题点数：40、回复次数：2Top
1 楼zswang（伴水清清)(专家门诊清洁工）回复于 2002-06-01 08:01:27 得分 40
if Pos(s2, s1) > 0 then
{ TODO };
if StringReplace(s1, s2, '', [rfReplaceAll]) <> s1 then
{ TODO };Top
2 楼BruceZhang（瓷）回复于 2002-06-01 08:23:09 得分 0
非常感谢！Top
