[Максон]

Здравствуйте.
Столкнулся с такой проблемой. На форме 3 edit-a, 1 Combobox, 1stringGrid, 1button.
Суть вопроса: При каждом нажатии на кнопку данные из edit,combobox отображались в Stringgrid и добавлялась новая строка.
Увы, у меня так не получается.
Подскажите, пожалуйста

Код:

procedure TForm2.addbtnClick(Sender: TObject);
var
  i:Integer;
begin
  strngrd1.RowCount:=0;
  strngrd1.RowCount:=strngrd1.RowCount+1; //Добавление строки
 for i:=1 to (strngrd1.RowCount+1) do
  begin
    if strngrd1.Cells[0,i]='' then
    begin
       strngrd1.Cells[1,i]:=edt1.Text;
       strngrd1.Cells[2,i]:=edt2.Text;
       strngrd1.Cells[3,i]:=edt3.Text;
	strngrd1.Cells[4,i]:=cbb1.Text;
       Exit;

      end;
      end;
end;

end.

[Black Raider]

Код:

  stringgrid1.Cells[1,StringGrid1.RowCount-1]:=edit1.Text;
  stringgrid1.Cells[2,StringGrid1.RowCount-1]:=edit2.Text;
  stringgrid1.Cells[3,StringGrid1.RowCount-1]:=edit3.Text;
  stringgrid1.Cells[4,StringGrid1.RowCount-1]:=ComboBox1.Text;
StringGrid1.RowCount:=stringgrid1.RowCount+1; //Äîáàâëåíèå ñòðîêè

Без цикла

[NumLock]

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.RowCount:=1;
  StringGrid1.ColCount:=4;
  StringGrid1.FixedRows:=0;
  StringGrid1.FixedCols:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if StringGrid1.Cells[0, 0]<>'' then StringGrid1.RowCount:=StringGrid1.RowCount+1;
  StringGrid1.Cells[0, StringGrid1.RowCount-1]:=Edit1.Text;
  StringGrid1.Cells[1, StringGrid1.RowCount-1]:=Edit2.Text;
  StringGrid1.Cells[2, StringGrid1.RowCount-1]:=Edit3.Text;
  StringGrid1.Cells[3, StringGrid1.RowCount-1]:=ComboBox1.Text;
end;

[Janom]

Сообщение от Максон

Код:

procedure TForm2.addbtnClick(Sender: TObject);
var
  i:Integer;
begin
  strngrd1.RowCount:=0;
  strngrd1.RowCount:=strngrd1.RowCount+1; //Добавление строки
 for i:=1 to (strngrd1.RowCount+1) do
  begin
    if strngrd1.Cells[0,i]='' then
    begin
       strngrd1.Cells[1,i]:=edt1.Text;
       strngrd1.Cells[2,i]:=edt2.Text;
       strngrd1.Cells[3,i]:=edt3.Text;
	strngrd1.Cells[4,i]:=cbb1.Text;
       Exit;

      end;
      end;
end;
end.

Ты сначала кол-во строк обнуляешь, а потом добавляешь... На что тут можно расчитывать?