Форум программистов [Powered by Invision Power Board]

Код

//---------------------------------------------------------------------------
// Найти код свободный
  bool Kod_In(TDataSet *Q, TSString Field, int a, int b)
  {
    int aa, bb;
    if (Q == NULL) return false;
    Q->RecNo = a;
    aa = Q->FieldByName(Field.c_str())->AsInteger;
    Q->RecNo = b;
    bb = Q->FieldByName(Field.c_str())->AsInteger;
    return (bb-aa > b-a);
  }
//---------------------------------------------------------------------------
int TSprTableInfo::getKod(TComponent *AOwner, TSString Field, TSString Usl)
{
  if (Field.IsEmpty())
    return -1;
  TDataSet *Q = NULL;
  int Result;
  if (GET_BIT(Options, SPR_TABLE_AUTO_INC)) { // это выкинь
    Q = dataBase->execSQLSelect(AOwner, this, "SELECT " + Field + " FROM " + name + " " + name + "0" + Usl + " ORDER by " + Field+" desc");
    if (Q == NULL)
      return 1;
    Q->First();
    Result = Q->FieldByName(Field.c_str())->AsInteger + 1;
    dataBase->queryFree(&Q);
    return Result;
  } else {
    int a, b, c;
    if (!Usl.IsEmpty())
      Usl = " WHERE " + Usl;
    Q = dataBase->execSQLSelect(AOwner, this, "SELECT " + Field + " FROM " + name + " " + name + "0" + Usl + " ORDER by " + Field);
    if (Q == NULL)
      return 1;
    a = 1;
    b = Q->RecordCount;
    Q->First();
    if (Q->FieldByName(Field.c_str())->AsInteger > 1) //тут проверка если диапозон не с 1, но сразу 1
      Result = 1;
    else
    {
      if (Kod_In(Q, Field, a, b)) // тут проверка может и вовсе дырок нету
      {
        while (Kod_In(Q, Field, a, b) && (b-a > 1)) // тут банальный двоичный поиск
        {
          c = (a + b) / 2;
          if (Kod_In(Q, Field, a, c)) b = c;
                              else a = c;
        }
        Q->RecNo = a;
      } else
      {
        Q->Last();
      }
      Result = Q->FieldByName(Field.c_str())->AsInteger + 1;
    }
  }
  dataBase->queryFree(&Q);
  return Result;
}