大家好:
我现在刚学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; //到这里结束!!
我现在刚学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; //到这里结束!!
用于统计你输入的字符串中有多少个字符属于['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 用于统计的变量就增加一个
最后统计出字符串的所有元音字符个数!
inc(count)多方便。