如何判断一个字串是否在另一个字串里？

Question

例如：'031'是否在label1.caption里。

Answer 1

String str1 = "031" ;
String str2 = "label1.caption" ;
if(str2.indexOf(str1)<1){
不在里面
}else{
在里面
}

Answer 2

var
  Str1, Str2: string;
begin
  Str1 := Label1.Caption;
  Str2 := '031';
  if Pos(Str2, Str1) > 0 then
    ShowMessage('在里面');
  else
    ShowMessage('不在里面');
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  str1,str2:string;
begin
  str1:='what is you name';
  str2:='001';
  //注意在使用AnsiContainsText函数时，应在USES中加入StrUtils单元
  if AnsiContainsText(str1,str2) then//也可用AnsiContainsStr()函数
  showmessage('str2在str1字符串中') else
  showmessage('str2不在str1字符串中');
end;

Answer 4

function AnsiMatchText(const AText: string; const AValues: array of string): Boolean; $[StrUtils.pas
功能 返回字符串数组AValues中是否包含字符串AText
说明 不区分大小写
参考 function StrUtils.AnsiIndexText
例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']);

Answer 5

instr(startnum,string1,string2,comparetype)