如何判断'*'是否在一字符串str1中出现两次?

Question

如题

Answer 1

将STR1中放在一个字符数组中，然后再使用循环，将STR1中每个字符和'*'比较，做个计数器，然后再比较。笨办法
我是菜鸟，永远的菜鸟

Answer 2

没有固定的函数，一般情况下使用POS做循环判断，很多人写过，你搜索一下！

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var str1: string;
    i,n : integer;
begin
  n:=0;
  str1:=edit1.Text;   //你要查找的STR1
  while str1<>'' do
  begin
    i:=pos('*',str1);
    Delete(str1,1,i);
    n:=n+1;
  end;
  showmessage(inttostr(n));    //'*'出现的次数////
end;

Answer 4

var stem: string;
begin
 sTem := StringReplace(s, '*', '', [rfReplaceAll]);
 if (Length(s) - Length(sTem)) > 1 then
  ...

Answer 5

有点笨的办法，但是绝对有效，用Pos判断第一次，然后截掉前面的字符串，用Pos再判断一次