[bambooshoot]

Здравствуйте! Просьба сразу больно не бить Ситуация такая: прога работает с StringGrid, который после окончания работы сохраняется в файл. Пару раз по запарке закрывал прогу без сохранения, соответственно теряя данные. Сделал в FormCloseQuery messageBox для предотвращения потери данных. Но: я ничего не забыл, сохранился как положено, ничего больше не изменяю в данных выхожу из проги, а "прога" мне и говорит :" а не хотите ли вы сохраниться?". Как можно отследить изменения данных в таблице, чтобы избежать повторного появления вопроса при выходе? Существуют ли еще какие-то варианты решения данного вопроса? Спасибо.

[NumLock]

после вопроса сохраняться и закрывать программу.

[Ildar-tsr]

Код:

var
  msg_: boolean;
...
procedure TForm1.SaveButton(Sender: TObject);
begin
  msg_:= false;
end;

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  msg_:= true;
end;

procedure TForm1.CloseQuery(Sender: TObject);
begin
  if msg_ then
    MessageBox();
end;