Gedemin TLB.IgsApplication.GetComplexCase

From Gedemin TLB.pas

 function  GetComplexCase(const TheWord: WideString; TheCase: Integer): WideString; safecall;

Unit: Gedemin TLB

Type: function

Visibility: public

Member Of: IgsApplication

Описание

Склоняет переданную строку.

функция принимает на вход строку следующего вида:

 [[Определение] [Определение]...] Наименование [Остаток]

Определение -- это прилагательное: главный, старший, ведущий, главная, и т.п. Наименование -- это одно слово или N слов, написанных через дефис. Наименование из одного слова склоняется по правилам склонения. В наименовании из N слов, написанных через дефис, склоняется каждое из слов по правилам склонения. Остаток не склоняется. Определение и Наименование должны быть заданы в именительном падеже и единственном числе.

Пример:

  Dim I, S
  S = ""
  For I = 1 To 6
    S = S & Application.GetComplexCase("Первый жировой участок", I) & vbCrLf
  Next
 
  MsgBox S

Константы

 ' Падежи 
 csNominative     = 1    ' Именительный КТО-ЧТО 
 csGenitive       = 2    ' Родительный  КОГО-ЧЕГО 
 csDative         = 3    ' Дательный    КОМУ-ЧЕМУ 
 csAccusative     = 4    ' Винительный  КОГО-ЧТО 
 csInstrumentale  = 5    ' Творительный КЕМ-ЧЕМ 
 csPreposizionale = 6    ' Предложный   О КОМ-О ЧЕМ 

 ' Род 
 gdMasculine = 0         ' Мужской род 
 gdFeminine  = 1         ' Женский род 
 gdMedium    = 2         ' Средний род 
 gdPlural    = 3         ' Множественное число 

 ' Имя 
 nmNar = 0               ' Имя нарицательное 
 nmOwn = 1               ' Имя собственное   
 nmNum = 2               ' Имя числительное