[kib_zem]

Уважаемые программисты! Друзья! Знатоки! Специалисты!

Помогите пожалуйста студенту! Только начал учить язык, полный "0" !

Кто может объяснять на пальцах что за чем делать, с примерами, решения такой задачи:
1) Припустим есть текст который я ввожу в форму ввода (edt1).
2) Нужно сделать так чтобы к негласным буквам в конце слова добавило сочетанные "се".
3) Вывело результат при нажатии на кнопку в Memo.

Буду очень благодарен!

[Кодер]

написал контакты в личку

[Alegun]

Откройте новый проект, на форму из палитры компонентов бросьте Edit, Button и Memo, кликните на кнопку - в редакторе кода появится процедура обработки её жима, замените на

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

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;

(в)се

[kib_zem]

Спасибо огромное! Всё получилось!