[kib_zem]

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

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

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

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

[Кодер]

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

[Alegun]

Откройте новый проект, на форму из палитры компонентов бросьте 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;

(в)се

[kib_zem]

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