вводится число в Edit он ищет слова под этим номером нужно чтобы . программа подсчитала в этом слове количество гласных букв ...
Код:
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+'"');[HTML]
break;
label1.caption:=(inttostr(length(fin.text)));
end;
if Strtoint(edit1.text)>fin.Count then
showMessage('Слова с таким номерам не существует');
вводится число в Edit он ищет слова под этим номером нужно чтобы . программа подсчита
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
А кто теговать за тебя будет?
Писать можно на чём угодно, но зачем же так себя ограничивать? Пиши на c.