| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Stringgrid [D7, 2000]

Страницы:   < 1 2 >

Максон ©   (2011-03-29 12:49:00) 

Здравствуйте.
Столкнулся с такой проблемой. На форме 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.

---

Максон   (2011-03-29 13:17:00) [21]


strngrd1.RowCount:=0;


видимо обнуление таблицы?

---

Virgo_Style   (2011-03-29 13:11:00) [22]

> добавлялась  новая строка.


strngrd1.RowCount:=0;

вот здесь что происходит, как думаешь?

---

Страницы:   < 1 2 >

Наверх