перевод текстовой строки в родительный падеж

[kate158]

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

[artemavd]

Попоробуйте почитать это http://inteltec.ru/publish/articles/textan/1kx5_9.shtml. Может найдете для себя что-то полезное там . Статья интересная, но не осилил я ее. Многа буков)

[kate158]

ггг.смешно. мне бы чтонить в виде кода

[NieL]

Лови:

http://www.delphikingdom.com/asp/vie...?catalogid=412

[artemavd]

ггг.смешно.

Я и не над вами смеялся. Почитайте хотя бы это тогда http://programmersforum.ru/showthread.php?t=41821

[kate158]

artemavd, никто и не говорит, что Вы смеялись надо мной. статья действительно интересна. думаю что нет такой функции, т.к. возможно слишком большое количество вариантов фамилий и имен, которые нужно склонить. наверно, здесь нужен искусственный интеллект. ладно оставлю правку вручную.
спасибо

[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;

Еще раз скажу, что в этом коде могут быть ошибки, но я надеюсь, вы сможете их исправить.

[ОДИНОЧЕСТВО В СЕТИ]

перевод текстовой строки в родительный падеж

"Иванову Ивану Ивановичу"

-это дательный падеж! ups не успела!!!

[kate158]

дательный так дательный. описалась. а если фамилия имя и отчество не русские?+ фамилия может не склоняться
но все равно спасибо, друзья, за мысли =)

[ОДИНОЧЕСТВО В СЕТИ]

вот посмотри там и цифры склоняются и строки (родительный и дательный падежи) источник DelphiWorld