Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11636
Последний выпуск: 19.06.2015

нужно подсчитать гласные буквы в тексте

79K
29 ноября 2015 года
santafe
14 / / 29.11.2015
Есть код который по заданной цифре находит слова , мне нужно подсчитать в этом слове гласные буквы
begin
fin:=TStringList.Create;
fin.LoadFromFile('fin.txt'); //подгружаем строки из файла. Файл в каталоге с программой
fin.Delimiter :=' '; //разделитель слов - пробел
fin.DelimitedText :=fin.Text; //разбиваем текст из файла на слова
for i := 0 to fin.Count-1 do //цикл
if StrToInt(Edit1.Text)-1=i then
begin
label3.caption:=(inttostr(i+1)+'-е слова предложения: '+'"'+fin+'"');
break;

end;
if Strtoint(edit1.text)>fin.Count then
showMessage('Слова с таким номерам не существует');

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог