Склонение по падежам
Модераторы: m0p3e, edward_K, Модераторы
-
- Постоянный обитатель
- Сообщения: 159
- Зарегистрирован: 28 сен 2005, 19:48
- Откуда: mos
- Контактная информация:
Склонение по падежам
Подскажите плз функцию, которая склоняет ФИО по падежам
Код: Выделить всё
.Form AAA
.Ard
.declare
#component "z_Staff"
#include odecl.vih // Склонение
#include StrFunc.vih // Строковые функции
.enddeclare
.Create view vSS
var iDecl:declension;
iStr:StringFunctions;
As select *
From
Persons
;
.{table 'vSS.Persons'
.Fields
Persons.Fio
iDecl.FIODeclension(0,Persons.FIO,2)
iDecl.FIODeclension(0,Persons.FIO,3)
iStr.GetFirstName(Persons.Fio)
iDecl.SurNameDeclension(iStr.GetFirstName(Persons.Fio), 0,2,1)
iDecl.SurNameDeclension(iStr.GetFirstName(Persons.Fio), 0,3,1)
iStr.GetLastName(Persons.Fio)
iDecl.NameDeclension(iStr.GetLastName(Persons.Fio),0,2)
iDecl.NameDeclension(iStr.GetLastName(Persons.Fio),0,3)
iStr.GetPatronymic(Persons.Fio)
iDecl.PatronDeclension(iStr.GetPatronymic(Persons.Fio),0,2)
iDecl.PatronDeclension(iStr.GetPatronymic(Persons.Fio),0,3)
//------------
.EndFields
-------------------------------------------------------------------
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Именитильный │ Дательный │ Винительный │
@@@@@@@@@@@@@@@@ │@@@@@@@@@@@@@@@@@@│@@@@@@@@@@@@@@@@@@│
@@@@@@@@@@@@@@@@ │@@@@@@@@@@@@@@@@@@│@@@@@@@@@@@@@@@@@@│
@@@@@@@@@@@@@@@@ │@@@@@@@@@@@@@@@@@@│@@@@@@@@@@@@@@@@@@│
.}
.EndForm