[cadil]

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

[~ SaM ~]

Можно сохранить это значение в файл.

Запись в файл при закрытии программы

Код:

1 2 3 4 5 6

Var f:textfile; begin AssignFile(f,'название_файла.txt') ReWrite(f)  //Если файл не создан, то создадим его. Writeln(f,j); //записываем наше значение CloseFile(f); //отрубаемся от файла

Ну а когда запускаешь программу, то читай из файла значение:

Код:

1 2 3 4 5 6 7 8

Var f:textfile; s:shortstring; begin AssignFile(f,'название_файла.txt') Reset(f)  //Открываем файл для чтения Readln(f,s); //Считываем значение j:=strtoint(s); //присваеваем j считанное значение. CloseFile(f); //отрубаемся.

[cadil]

Сообщение от ~ SaM ~

Можно сохранить это значение в файл.

Запись в файл при закрытии программы

Код:

Ну а когда запускаешь программу, то читай из файла значение:

Код:

Спасибо! Все работает.
Но еще один детский вопрос: код записи при закрытии программы я записал в инструкцию меню Файл > Exit, а где найти код "крестика" выхода из программы?

[mav_c]

Сообщение от cadil

Спасибо! Все работает.
Но еще один детский вопрос: код записи при закрытии программы я записал в инструкцию меню Файл > Exit, а где найти код "крестика" выхода из программы?

Код:

1 2 3 4

procedure MnuItemExitClick(Sender : TObject) begin  Close(); end;

[The Shadow]

Это события OnClose и OnCloseQuery. Второе отличается тем, что в нем можно запретить закрытие формы.

[cadil]

[quote=The Shadow]Это события OnClose и OnCloseQuery. Второе отличается тем, что в нем можно запретить закрытие формы.[/QU

Спасибо!