Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

17th
Окт

Склонение ФИО

Posted by Chas under Delphi

Имеется некая информация состоящая из имени, фамилии и отчества. (все хранится в БД) К примеру, «Иванов Иван Иванович». Нужно, чтобы при нажатии на кнопку в поле текст заменялся на «Иванову Ивану Ивановичу». Может есть какая функция, кто -нибудь знает?

Neeter
Знаете, родительный падеж выглядел бы вот так:
«Иванова Ивана Ивановича».

А «Иванову Ивану Ивановичу» — это дательный падеж.

Я буду считать что вам нужен дательный.

Надо проверять последнюю букву в имени, фамилии и отчестве отдельно.

ИМЯ.

Если последняя буква — согласная, то просто надо добавить к слову букву «у»:

Артур — Артуру
Иван — Ивану
Александр — Александру
Иванов — Иванову
Иванович — Ивановичу

Но не на все согласные буквы надо проверять, например на «й» не надо, если эта буква последняя, то надо заменить ее на «ю»:

Алексей — Алексею
Андрей — Андрею
Дмитрий — Дмитрию

Если последняя буква — «а», то надо заменить ее на «е»:

Анна — Анне
Елена — Елене
Полина — Полине

Если последняя буква — «я», то надо заменить ее на «и»

Мария — Марии
Анастасия — Анастасии

ФАМИЛИЯ.

Фамилию надо внимательней проверять.
Если фамилия заканчивается на «ий» или «ой» или просто заканчивается на «й», то надо конец(последние две буквы) заменить на «ому».

Толстой — Толстому
Мармазинский — Мармазинскому

ОТЧЕСТВО.

Тут ничего сложного, отчества могут заканчиваться на «в» или на «ч», так что тут просто добавить в конец букву «у»

Я надеюсь что ничего не упустил…
Код будет сложно мне написать, т.к. без делфи сижу…
Но попробую.

//Будем брать текст из одного edit'а, в котором будет находится ФИО,

//  анализировать его, и выводить в дательном падеже в другой edit при нажатии кнопки

//В edit'ах должно быть полное ФИО, так что сделаете какую-нибудь проверку у себя в базе
procedure TForm1.Button1Click(Sender: TObject);

var

 FIO, AFIO: string;  //ФИО и измененное ФИО

 Name, LastName, Patronymic: string; //Имя, фамилия и отчество

 AName, ALastName, APatronymic: string; //Измененные имя, фамилия и отчество

 WEnd: char; //Здесь будет последний символ

const

 SLetters = ['ц', 'к', 'н', 'г', 'ш', 'щ', 'з', 'х', 'ф', 'в', 'п', 'р', 'л', 'д', 'ж', 'ч', 'с', 'м', 'т', 'б']; //"й" в этот массив не заносим

begin

 FIO := edit1.Text;

 LastName := Copy(FIO, 1, Pos(' ', FIO) - 1); //Достаем фамилию

 Delete(FIO, 1, Length(LastName) + 1);  //Оставляем только имя и отчество

 Name := Copy(FIO, 1, Pos(' ', FIO) - 1); //Достаем имя

 Delete(FIO, 1, Length(Name) + 1); //Оставляем только отчество

 Patronymic := FIO; //Присваиваем его переменной
 {Анализируем фамилию}

 WEnd := LastName[Length(LastName)];

 ALastName := LastName;

 if WEnd = 'й' then

 begin

  Delete(ALastName, Length(ALastName) - 2, 2);

  ALastName := ALastName + 'ому';

 end

 else if WEnd in SLetters then

  ALastName := ALastName + 'у';
 {Анализируем имя}

 WEnd := Name[Length(Name)];

 AName := Name;

 if WEnd = 'й' then

 begin

  Delete(AName, Length(AName) - 1, 1);

  AName := AName + 'ю';

 end

 else if WEnd in SLetters then

  AName := AName + 'у'

 else if WEnd = 'а' then

 begin

  Delete(AName, Length(AName) - 1, 1);

  AName := AName + 'е';

 end

 else if WEnd = 'я' then

 begin

  Delete(AName, Length(AName) - 1, 1);

  AName := AName + 'и';

 end;
 {Анализируем отчество}

 WEnd := Patronymic[Length(Patronymic)];

 APatronymic := Patronymic;

 if WEnd in SLetters then

  APatronymic := APatronymic + 'у';
 AFIO := Format('%s %s %s', [ALastName, AName, APatronymic]);

 edit2.Text := AFIO;

end;