判断一个字符串是否含有另一个字符串（或它的子串）的函数是哪个？？

Question

如题

Answer 1

浪费可用分.... Google更快....那个100块的还没有答案??  ^_^

Answer 2

用pos  没有那么简单吧   判断一个字符串是否含有另一个字符串的子串那？？

Answer 3

就那么简单~~`var S: string;begin
  S := '   123.5';
  { Convert spaces to zeros }
  while Pos(' ', S) > 0 do
    S[Pos(' ', S)] := '0';
end;看看这段结果等于什么你就知道了建议LZ多看DELPHI的帮助~~`（这个例子是帮助你的，一目了然）

Answer 4

呵呵.....跟楼主开玩笑的。楼主试一下我的函数能不能做到？函数出自http://community.csdn.net/Expert/topic/5364/5364540.xml?temp=.7027704
不过在那贴上也是我写的。写得不够高效。function SearchInStrings(const Str1,Str2 : string) : string;
{ ----功能：查找两个字符串有没有相同的部分----- }
var
  S1,S2 : string;
  I : integer;
  Found : boolean;
begin
  S1 := Str1;
  S2 := Str2;
  Found := false;
  for I := 1 to Length(S1) do  //先找到第一个相同的字符
    if (Pos(S1[I], S2)>0) then
       begin
       Found := true;
       Break;
       end;
  if Found then
     begin
     S2 := Copy(S2, Pos(S1[I],S2), MaxInt);
     S1 := Copy(S1, I, MaxInt);
     for I := 1 to Math.Min(Length(S1),Length(S2)) do
         if (S1[I] <> S2[I]) then break;
     result := Copy(S1, 1, I-1);//相同的内容
     end else result := '没找到任何相同的内容';
end;procedure TForm1.Button1Click(Sender: TObject);//测试
var
  S1, S2 : string;
begin
  S1 := '12345ABCD67890';
  S2 := '请不要生气ABCD呵呵';
  ShowMessage( SearchInStrings(S1,S2) );
end;

Answer 5

你们没明白我的意思  比如 str1:='我现在在北京' str2:='北京\上海'  用pos函数可以吗？？

Answer 6

我看这样还不如用TStringList循环判断

Answer 7

楼主讲一下怎么用TStringList循环判断嘛！ 明天我再来看贴受教。

Answer 8

用POS只能判断一个字符串是不是另一个字符串的子串，如果要判断一个字符串或者它的子串是不是另一个字符串的子串，这就讨厌了，因为你不知道字符串的子串到底是什么样样子的