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

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

   private function GetGroupSubStr(str : string; grNum : byte; delim : string) : string;
   {
      result := '';

      var curGrNum : byte; // Текуший блок
      var delimPos : byte; // Позиция разделителя

      for (curGrNum := 1; curGrNum <= grNum; curGrNum++)
      {
         delimPos := InStr(delim, str);

         if (curGrNum = grNum) // Нашли нужную группу
         {
            result := if(delimPos > 0, SubStr(str, 1, delimPos - 1), str);
            exit;
         }
         else if (delimPos = 0)
            exit;

         str := SubStr(str, delimPos + 1, Length(str) - delimPos);
      }
   }