求一个简单的方法

Question

DELPHI里面有没有这样的函数查看一个字符串是否在另一个字符串里面是否存在比如
 
var 
 str1:string;
 str2:string;
 str3:string;
begin
 str1:='e001,e002,e003';
 str2:='e003';
 str3:='e004'; ...   //这个地方如何写 str2是包含在str1中的 而str3不保含在str1中的end;

Answer 1

if pos(str2,str1)>0 then 
  //存在
else
  //不存在

Answer 2

对，就是用POS函数来实现：
POS（'子字符串','母字符串')
返回“子字符串”在“母字符串”中的位置，如果存在，则返回大于0的数。

Answer 3

uses strutils;ansicontainsstr(str1,str2)  
在str1中是否存在有字符串str2，大小有關
//ansicontainsstr(uppercase(b),uppercase(a))  這樣大小就無關了,呵呵

Answer 4

在接着问一下  判断一个字符串是否以什么开头用什么函数啊string o='abcd';判断o是不是以a开头 什么函数啊我没接触过delphi大家不要见笑.......

Answer 5

取第1个字符，判断其ascii码就行了

Answer 6

if Pos('a', 'abcd') = 1 then { TODO };

Answer 7

leftstr('abcd', 1) = 'a'