Gedemin TLB.IgsApplication.GetComplexCase
Материал из GedeminWiki
(Различия между версиями)
SYSDBA (обсуждение | вклад) |
SYSDBA (обсуждение | вклад) |
||
| (не показана 1 промежуточная версия 1 участника) | |||
| Строка 1: | Строка 1: | ||
{{MethodDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|visibility=public|class={{#explode:{{PAGENAME}}|.|1}}|src=function GetComplexCase(const TheWord: WideString; TheCase: Integer): WideString; safecall;}} | {{MethodDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|visibility=public|class={{#explode:{{PAGENAME}}|.|1}}|src=function GetComplexCase(const TheWord: WideString; TheCase: Integer): WideString; safecall;}} | ||
| − | <onlyinclude> | + | <onlyinclude>Склоняет переданную строку.</onlyinclude> |
| − | + | функция принимает на вход строку следующего вида: | |
| + | [[Определение] [Определение]...] Наименование [Остаток] | ||
| + | |||
| + | Определение -- это прилагательное: главный, старший, ведущий, главная, и т.п. Наименование -- это одно слово или N слов, написанных через дефис. Наименование из одного слова склоняется по правилам склонения. | ||
| + | В наименовании из N слов, написанных через дефис, склоняется каждое из слов по правилам склонения. Остаток не склоняется. Определение и Наименование должны быть заданы в именительном падеже и единственном числе. | ||
| + | |||
| + | Пример: | ||
| + | |||
| + | <syntaxhighlight lang="vbnet"> | ||
' Падежи | ' Падежи | ||
| − | csNominative = 1 | + | ' csNominative = 1 Именительный КТО-ЧТО |
| − | csGenitive = 2 | + | ' csGenitive = 2 Родительный КОГО-ЧЕГО |
| − | csDative = 3 | + | ' csDative = 3 Дательный КОМУ-ЧЕМУ |
| − | csAccusative = 4 | + | ' csAccusative = 4 Винительный КОГО-ЧТО |
| − | csInstrumentale = 5 | + | ' csInstrumentale = 5 Творительный КЕМ-ЧЕМ |
| − | csPreposizionale = 6 | + | ' csPreposizionale = 6 Предложный О КОМ-О ЧЕМ |
| − | + | ||
| − | + | Dim I, S | |
| − | + | S = "" | |
| − | + | For I = 1 To 6 | |
| − | + | S = S & Application.GetComplexCase("Первый жировой участок", I) & vbCrLf | |
| − | + | Next | |
| − | + | ||
| − | + | MsgBox S | |
| − | + | </syntaxhighlight> | |
| − | + | ||
| − | + | ||
Текущая версия на 12:27, 28 мая 2017
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
