delphi 搜索字符串中特定的字符

delphi搜索字符串中特定的字符

procedure TForm1.Button1Click(Sender: TObject);
var
k: Integer;
begin

k:=pos(ANSILOWERCASE(Edit1.Text),ANSILOWERCASE(Memo1.Text));
//-------------------
if k<>0 then
begin
form1.Caption:='存在';
end
else
begin
//
form1.Caption:='不存在';
end;
end;