|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Добавления символов к негласным на конце слова
Уважаемые программисты! Друзья! Знатоки! Специалисты!
Помогите пожалуйста студенту! Только начал учить язык, полный "0" ! Кто может объяснять на пальцах что за чем делать, с примерами, решения такой задачи: 1) Припустим есть текст который я ввожу в форму ввода (edt1). 2) Нужно сделать так чтобы к негласным буквам в конце слова добавило сочетанные "се". 3) Вывело результат при нажатии на кнопку в Memo. Буду очень благодарен! |
#2
|
|||
|
|||
написал контакты в личку
|
Этот пользователь сказал Спасибо Кодер за это полезное сообщение: | ||
kib_zem (21.02.2014)
|
#3
|
||||
|
||||
Откройте новый проект, на форму из палитры компонентов бросьте Edit, Button и Memo, кликните на кнопку - в редакторе кода появится процедура обработки её жима, замените на
Код:
procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin Memo1.Clear; for i := 0 to Length(Edit1.Text) do if Edit1.Text[i] = ' ' then begin if Edit1.Text[i-1] in ['ц', 'к', 'н', 'г', 'ш', 'щ', 'з', 'х', 'ф', 'в', 'п', 'р', 'л', 'д', 'ж', 'ч', 'с', 'м', 'т', 'б'] then Memo1.Text:= Memo1.Text + 'се ' else Memo1.Text:= Memo1.Text + ' '; end else Memo1.Text:= Memo1.Text + Edit1.Text[i]; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 21.02.2014 в 00:16. |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
kib_zem (21.02.2014)
|
#4
|
|||
|
|||
Спасибо огромное! Всё получилось!
|