判断字符串中是否出现了以下字符串（汉字）

//判断列表框中是否出现了 “铁”字

//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.

来自为知笔记(Wiz)

转载于:https://www.cnblogs.com/xe2011/archive/2012/05/31/2528268.html