Динамические массивы

[spectrum988]

Приветствую всех участников форум.Хочу попросить ваше помощи.Столкнулся с проблемой при работе с дин.массивами.
Компилирует нормально все,но при вводе значений n и x при нажатии на Button2 выбивает ошибку,я так понимаю идет какое-то несоответствие типов данных
Безымянный.jpg

//-------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int n,*ptrmas;


//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Label5->Hide();
Edit3->Hide();
Label6->Hide();
Edit4->Hide();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int i,j,r,x,el,poz,number = 1,Ras, counter = 0;
const int Rasryad = 10;
const int Position = 100;
randomize();
n=StrToInt(Edit1->Text);
StringGrid1->ColCount=n;
ptrmas=new int[n];
int TempArray[Rasryad][Position] = {0};
for(int i = 0; i < n; i++)
 {
  ptrmas[i]= StrToInt(StringGrid1->Cells[i][0]);
 }
   for(int i = 0; i < 4; i++)
    {
     for(int j = 0; j < n; j++)
      {
       Ras = ptrmas[j] / number % 10;
       TempArray[Ras][j] = ptrmas[j];
      }
       counter = 0;
      for(int a = Rasryad-1; a >=0 ; a--)
      {
       for(int b = 0; b < Position; b++)
        {
         if(TempArray[a][b] != 0)
         {
          ptrmas[counter++] = TempArray[a][b];
          TempArray[a][b] = 0;
         }
        }
      }
       number *= 10;
    }
for (int i=0; i<n; i++)StringGrid1->Cells[i][0]=IntToStr(ptrmas[i]);
//-----------------------------------------------------------------------------
switch (RadioGroup1->ItemIndex)
{
case 0:
x=StrToInt(Edit2->Text);
for (i=0; i<n; i++)
{
if (ptrmas[i]==x)
{
el=true; poz=i+1; break;
}
}
if (el==true)
{
Label5->Show();
Edit3->Show();
Edit3->Text=IntToStr(poz);
}
else
ShowMessage("Элемент не найден");break;
case 1:
int m,x,i_key=0,j_key=n-1;
x=StrToInt(Edit2->Text);
while(i_key< j_key)
{
m = (i_key+ j_key)/2;
if (ptrmas[m] < x)  i_key= m+1;
else         j_key = m;
}
if (ptrmas[i_key]!=x)
{
ShowMessage("Элемент не найден");
}
else
{
Label6->Show();
Edit4->Show();
Edit4->Text=IntToStr(i_key+1);
}
break;
}}

Тут использована корзинная сортировка,программно не понимаю ее реализацию,может кто подкинет материал по этому виду сортировки.Пробовал с пузырьковой все работало.

[Utkin]

Весьма вероятно, что в СтринГриде какое-то поле пустое, а надо число. Попробуйте при создании формы (или где-там еще) инициализировать СтринГрид (забить таблицу нулями). Вариант 2 при получении данных из текстовых полей на форме сначала проверять их на "" и считать это нулем.

[spectrum988]

Спасибо,нашел решение данной проблемы.Сделал по другому немного и заработало.