判断字符串中是否出现了以下字符串(汉字)

//判断列表框中是否出现了 “铁”字
//Pos(SubStr, Str)
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Pos('铁', Edit1.Text) <>0 then form1.Caption:='发现目标';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    edit1.Text:='Edit1铁sa铁ads2s';
end;

end.




你可能感兴趣的:(字符串)