Como preencher GRID com InputBox?

brunosr01 · 28 de fevereiro de 2009

Aê, galera. Tô com uma dúvida simples. É o seguinte, eu tenho um StringGrid no formulário e um CommandButton. Eu quero colocar uma InputBox para digitar nomes e preencher o StringGrid com eles. Para quem entende de Delphi, aí vai o código.


var
    L:Integer;
   C:Integer;
Linha de código do botão:
   for L:=1 to 4 do //Grid com 4 linhas
   begin
          for C:=1 to 4 do //Grid com 4 colunas
          begin
                 StringGrid1.Cells[L,C]:=InputBox('Preencher Grid','Digite Nome','');
          end;
   end;

Fim do código do botão

Com esses comandos, eu resolvo o meu problema no Delphi 7. Mas no C++ Builder não funciona. Vejam o código que eu fiz.


void __fastcall TForm1::Button1Click(TObject *Sender)
{
   int l;
   int c;
   for (l=1;l<5;l++)
   { for (c=1;c<5;c++)
     {
      StringGrid1->Cells[c,l]=InputBox("PREENCHER GRID","digite o nOME","");
     }
   }
}

Não funciona de jeito nenhum. Acho que não estou fazendo os comandos certos para a InputBox. Já tentei aspas simples ' ' ao invés de " " mas mesmo assim não funcionou. Alguém aí pode me dar uma luz?

brunosr01 · 10 de março de 2009


void __fastcall TForm1::Button1Click(TObject *Sender)
{
   int l;
   int c;
   for (l=1;l<5;l++)
   { for (c=1;c<5;c++)
     {
      StringGrid1->Cells[c][l]=InputBox("PREENCHER GRID","digite o nOME","");
     }
   }
}

Simples demais o erro. É uma pena que ninguém soube me ajudar quando precisava. Moderador, pode fechar o tópico.