如何检查一个字符串中是否含有.这个字符?

如何检查一个字符串中是否含有'.'这个字符?我想检查一个字符串S中是否含有'.'这个字符,如果没有就执行S '.'语句应该怎么实现啊?谁帮帮我,谢谢啦!if Pos('.', S) <= 0 then S := S '.';