Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Подмена окончаний в слове

Максон © (2011-04-11 08:25:00)
Здравствуйте.
Помогите пожалуйста, разобраться в ситуации.
Задача: пользователь вводит в edit1 название района. Например: Ивановский район. Дальше нажимает на кнопку и программа выдает ему сопроводительное письмо, в котром в начале документа Ивановский район, а в конце документа по Ивановскому району
При нажатии на кнопку в закладку шаблона документа word вставляется текст из edit1.

WA.activeDocument.bookmarks.item('район').select; WA.selection:=form1.edt1.Text;

C этим я разобрался.
Проблема: как убрать окончание (-ий) у слова, а потом добавить к нему другое окончание (-ому)

Максон (2011-04-11 09:35:00) [1]
Ребята, спасибо огромное. Помогли очень.
Разобрался.
Вот код рабочий, если кому надо
procedure TForm1.btn1Click(Sender: TObject); var raion, okonch: string; begin raion := edt1.Text; Delete(raion, length(raion) - 1, 2); okonch := raion + 'ого'; edt2.Text := okonch; end; end.

Максон (2011-04-11 09:29:00) [2]
Все равно не получается

И. Павел (2011-04-11 08:50:00) [3]
только в вашем варианте не:
raion := raion + 'ого';
а:
raion := raion + 'ому';

И. Павел (2011-04-11 08:49:00) [4]
> [6] Максон © (11.04.11 08:41)

Если для всех районов достаточно вырезать последние 2 буквы и вставить новое окончание, то можно так:
procedure TForm1.Button1Click(Sender: TObject); var raion, okonch: string; begin raion := 'Московский'; Delete(raion, length(raion) - 1, 2); raion := raion + 'ого'; Caption := raion; end;

Anatoly Podgoretsky (2011-04-11 08:45:00) [5]
Это называется падежи.

Максон (2011-04-11 08:41:00) [6]
Паша, скажи, а попроще ничего нет? Я вчера весь вечер гуглил, так и нашел ничего путнего.
Можно как-нибудь вырезать окончание и вставить другое?

И. Павел (2011-04-11 08:39:00) [7]
> [1] Ega23 © (11.04.11 08:32)

А если попадется какой-нибудь район имени Вано Гугашвилли? :) Не уверен, что такие бывают, но мало ли.

И. Павел (2011-04-11 08:37:00) [8]
Вот библиотека, склоняющая фамилии. Думаю, что районы склоняются так же. Например "Московский" - это может быть и райорн и фамилия.
http://delphikingdom.ru/asp/viewitem.asp?catalogid=412

За 1000 руб. можно купить вот такую программу: http://morpher.ru/

Ну и в сети полно уже готовых решений.
Хотя можно сделать самостоятельно - http://ru.wikipedia.org/wiki/%D0%A1%D0%BA%D0%BB%D0%BE%D0%BD%D0%B5%D0%BD%D0%B8%D0%B5_%D0%B3%D0%B5%D0%BE%D0%B3%D1%80%D0%B0%D1%84%D0%B8%D1%87%D0%B5%D1%81%D0%BA%D0%B8%D1%85_%D0%BD%D0%B0%D0%B7%D0%B2%D0%B0%D0%BD%D0%B8%D0%B9_%D0%B2_%D1%80%D1%83%D1%81%D1%81%D0%BA%D0%BE%D0%BC_%D1%8F%D0%B7%D1%8B%D0%BA%D0%B5

Ega23 (2011-04-11 08:36:00) [9]
Написать в редакторе "Copy", выставить на нём курсор и нажать F1. Будет выведена справка, что это и как этим пользоваться.

Максон (2011-04-11 08:34:00) [10]
Это как сделать?

Ega23 (2011-04-11 08:32:00) [11]
Copy + F1

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »