Числа Хемминга

[FataLL]

Ты же пишешь в одну колонку постоянно. Попробуй

StringGrid1->Cells[s][J-1] = IntToStr(i);

[BDA]

По-моему, примерно так:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 int a, b,i,k,s;
  a=StrToInt(E_A->Text);
 b=StrToInt(E_B->Text);
 s=0;
 StringGrid1->RowCount = 1;
  for (i = a + 1; i<b; i++)
   {
        k = i;
        while (k % 2 == 0)
	{
            k =k/2;
        }
        while (k % 3 == 0)
	{
            k =k/3;
        }
        while (k % 5 == 0)
	{
            k=k/5;
        }
        if (k == 1)
	{
        StringGrid1->ColCount = s + 1;
        StringGrid1->Cells[s++][0] = IntToStr(i);
        }
   }
}

UPD
Пожалуйста

[.FROST.]

BDA,спасибо,работает)