![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() В процессе работы программы, при нажатии кнопки "Сохранить результаты" (Button2) заполняется таблица:
... var j: Integer=1; ... procedure TForm1.Button2Click(Sender: TObject); begin j:= j+1; ExcelApplication.Cells[j,1].value:= Edit3.Text; ExcelApplication.Cells[j,2].value:= Edit4.Text; ExcelApplication.Cells[j,3].value:= ComboBox1.Text; ExcelApplication.Cells[j,4].value:= Edit1.Text; ExcelApplication.Cells[j,5].value:= Edit2.Text; ExcelApplication.Cells[j,6].value:= FloatToStrF(d,ffGeneral,3,2) + ' ìì'; end; Естественно, при новом открытии программы заполнение таблицы начинается по новой. Как перед закрытием программы организовать запоминание j и начинать заполнение таблицы с новым запуском со старого зачения +1? Последний раз редактировалось cadil, 01.11.2007 в 14:40. |