这样一个function 如何写?

Question

如何判定字符串A 是否在字符串 B 里? 是就返回TRUE,不是就返回FALES.如 '111'  在  'aaa111bbbccc' 里就返回TRUE.
如 '222' 不在 'aaa111bbbccc' 里就返回FALES.谢.

Answer 1

delphi本来就有这样的函数。
StrUtils单元的AnsiContainsText

Answer 2

uses StrUtils;function AnsiContainsText(const AText, ASubText: string): Boolean;
返回字符串AText是否包含子串ASubText

Answer 3

var
  inStr: boolean;inStr := pos('111', 'aaa111bbbccc') <> 0;
inStr := pos('222', 'aaa111bbbccc') <> 0;

Answer 4

funtion issubstring(s1:string,s2: string):bool
var i :integer ;
begin
   if pos(s1,s2)<>0 then
      result ;= true
   else
      result := false ;
end;

Answer 5

pos函数可以解决的~~顺便接点分~~