大家好:
   我现在刚学DELPHI有一个范例代码中的一段我看不懂,请问谁能帮我翻译一下,
在输入的英语单词中找出元音字符!!原代码如下:
procedure TForm1.Button1Click(Sender: TObject);
type
  vowelset=set of char;
var
  v:vowelset;
  str:string;
  i,count:0..100;
begin                          //从这开始!!
  count:=0;
  v:=['a','e','i','o','u','y'];
  str:=edit1.text;
  for i:=0 to length(str) do
  begin
    if str[i] in v then         //str[i]是一条命令,它的原形是什么?
        count:=count+1;         //为什么count要加1呢?是什么意思?
    end;
    edit2.text:=intTostr(count)
  end;                         //到这里结束!!

解决方案 »

  1.   

    对于字符串类型,你可以象属组一样进行索引,若S是一个字符串变量,i是一个整数表达式,,则S[i]是S中第i个字符(或者,严格来说,是第i个字节)
      

  2.   

    统计str中有多少个字符属于['a','e','i','o','u','y']集合,结果计入count
      

  3.   

    上面说的没错
    用于统计你输入的字符串中有多少个字符属于['a','e','i','o','u','y']集合的元音字符,
    str[i] i是字符串的下标,
    比如  str:='abcdefg' str[0]就是'a'
    if str[i] in v then         当str[i]是集合中的一个时
    count:=count+1  用于统计的变量就增加一个
    最后统计出字符串的所有元音字符个数!
      

  4.   

    count:=count+1为什么会使用这样呢?
    inc(count)多方便。