Код:
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; //Äîáàâëåíèå ñòðîêè
Без цикла
__________________
Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение"
|