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 слов, написанных через дефис, склоняется каждое из слов по правилам склонения. Остаток не склоняется. Определение и Наименование должны быть заданы в именительном падеже и единственном числе.

Пример:

  ' Падежи 
  ' csNominative     = 1    Именительный КТО-ЧТО 
  ' csGenitive       = 2    Родительный  КОГО-ЧЕГО 
  ' csDative         = 3    Дательный    КОМУ-ЧЕМУ 
  ' csAccusative     = 4    Винительный  КОГО-ЧТО 
  ' csInstrumentale  = 5    Творительный КЕМ-ЧЕМ 
  ' csPreposizionale = 6    Предложный   О КОМ-О ЧЕМ 
 
  Dim I, S
  S = ""
  For I = 1 To 6
    S = S & Application.GetComplexCase("Первый жировой участок", I) & vbCrLf
  Next
 
  MsgBox S