Показать сообщение отдельно
  #1  
Старый 01.11.2007, 13:23
cadil cadil вне форума
Начинающий
 
Регистрация: 24.10.2007
Сообщения: 169
Репутация: 10
По умолчанию 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?
Ответить с цитированием