返回指定字符串的起始位置，在Delphi中的实现方法很简单，使用现有的内置函数就可以，在本示例中我们使用IntToStr就可以轻松获取字符串中指定字符出现的位置，本判断中包括了英文和中文的判断，两种类型都可以使用IntToStr来实现，参考如下代码编写即可： 　　begin 　　 s := 'Private declarations'; 　　 p := 'tion'; 　　 ShowMessage('源码的起始位置为：' IntToStr(Pos('源码','你好，源码素材网'))); 　　 ShowMessage('tion的起始位置为：' IntToStr(Pos(p,s)));