Галактика в вопросах и ответах

Код: Выделить всё

#ifndef __StringUtils_vih__
#define __StringUtils_vih__

#component "Utils"

   // Падежи
   const
      csNominativeCase      = 1; // Именительный падеж (Кто? Что?)
      csGenitiveCase        = 2; // Родительный падеж (Кого? Чего?)
      csDativeCase          = 3; // Дательный (Кому? Чему?)
      csAccusativeCase      = 4; // Винительный (Кого? Что?)
      csInstrumentativeCase = 5; // Творительный (Кем? Чем?)
      csPrepositionCase     = 6; // Предложный (О ком? О чём?)
   end;
   
   // Части речи
   const
      csUnknownWord   = 0;    // Неопределенное
      csNounWord      = 1;    // Существительное
      csAdjectiveWord = 2;    // Прилагательное      
   end;
   
   
   // Тип данных -> слово и часть речи  
   public type tWordWithType = record
      WordStr  : string;
      WordType : byte;
   end;   
   
   public type StringArray = array [1..1] of string;   

   public objInterface IStringUtils;
      public:
         ////////////////////////////////////////////////////////////////////////
         // Склонение слов и предложений, состоящих из существительных и прилагательных
         // _case - падеж (константа)
         // stopAfterNoun - прекратить склонение после того как наткнулись на существительное
         ////////////////////////////////////////////////////////////////////////   
         function ConvertWordToCase(str : string; _case : byte) : tWordWithType;
         function ConvertStatementToCase(str : string; _case : byte; stopAfterNoun : boolean = false) : string;   
   end;

   public vipInterface StringUtils implements IStringUtils;  
#end