[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 ~]

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

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

Код:

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

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

Код:

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

[cadil]

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

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

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

Код:

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

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

Код:

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

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

[mav_c]

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

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

Код:

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

[The Shadow]

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

[cadil]

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

Спасибо!