Question

在Delphi中，怎么查找字符串？

如：要查找字符串中的某一个或几个字符，语句该怎么写
再如： 想知道字符串中首部或尾部的字符是不是‘>’，这样语句又该怎么写？

各位高手帮帮忙！

Answer 1

　　Delphi提供的字符串函数里有一个Pos函数，它的定义是：

　　function Pos(Substr: string; S: string): Integer;

　　它的作用是在字符串S中查找字符串Substr，返回值是Substr在S中第一次出现的位置，如果没有找到，返回值为0。

　　使用pos函数来查找字符第一次出现的位置

var
str1:string;
i,j:integer;
begin
str1:='dsf4654f6<ds>ad' ;
j:=pos('<',str1);//在字符串str1中查找"<"
if j<>0 then   //得到的j是字符串中出现的位置，是整型
showmessage('<'+'在第'+inttostr(j)+'个位置');  //第十个位置
end;

Answer 2

使用pos函数来查找字符第一次出现的位置
pos(要查找的字符串,在字符串中查找)

var
str1:string;
i,j:integer;
begin
str1:='dsf4654f6<ds>ad' ;
j:=pos('<',str1);//在字符串str1中查找"<"
if j<>0 then //得到的j是字符串中出现的位置，是整型
showmessage('<'+'在第'+inttostr(j)+'个位置');
end;

Answer 3

另外，一个简单的办法，就是用findDialog对话框，它提供这种机制。

Answer 4

用函数可以完成，如果在数据库中可以用到LIKE