[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, а где найти код "крестика" выхода из программы?