用集合类型编写程序,输入一个单词,统计其中元音字母的个数 初学DELPHI,不知道如何写。搞了一天了。。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 function GetVowelCount(Str:string):Integer;const vowel=['a','e','i','o','u','A','E','I','O','U'];var i,StrLength:Integer;begin Result:=0; StrLength:= Length(Str); for i:=1 to StrLength do if Str[i]in vowel then Inc(Result);end; Inno Setup能不能提取文件夹 InsertRecord()后,怎么撤销插入的记录啊? 100分请笑纳~ 如何进行 两个不同数据库的表 的联合查询?[在线等待]。 请大家谈谈软件功能模块话的经验如何? 如何在DELPHI中使用SESSION变量? dbgrid怎样返回当前是第几条记录呢?怎样返回一共检索出了多少条记录呢?? 有关窗体继承的问题 我想学delhpi 李维分布式多层应用系统篇第一个例子我碰到到问题, 有没有专门介绍indy组件页的整体说明呀 timer事件问题?
const vowel=['a','e','i','o','u','A','E','I','O','U'];
var i,StrLength:Integer;
begin
Result:=0;
StrLength:= Length(Str);
for i:=1 to StrLength do
if Str[i]in vowel then
Inc(Result);
end;