EXCEL: организация сквозной нумерации строк
В процессе работы программы, при нажатии кнопки "Сохранить результаты" (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?
|