delphi 验证是否包含指定字符串

function ValidateChars(const Value, ValidChars: string): boolean;

begin

  for var v in Value do

  begin

    var Valid: boolean := False;

    for var c in ValidChars do

      if (c = v) then

      begin

        Valid := True;

        break;

      end;

    if (not Valid) then

      Exit(False);

  end;

  Result := True;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

if ValidateChars('b','12345中国人') then

begin

  text:='yes';

end

else

begin

  text:='no';

end;

end;