判断字符串中是否出现了以下字符串（汉字）
//判断列表框中是否出现了 “铁”字
//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.