LazStats: Confirm overwriting existing variables in CompRelUnit.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7903 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2020-11-23 17:45:40 +00:00
parent efa8f7bcbc
commit fb470a0b67
1 changed files with 4 additions and 0 deletions
--- a/applications/lazstats/source/forms/analysis/measurement_programs/comprelunit.pas
+++ b/applications/lazstats/source/forms/analysis/measurement_programs/comprelunit.pas
@ -219,6 +219,10 @@ begin
        col := NoVariables;
        OS3MainFrm.DataGrid.Cells[col,0] := cellstring;
        col := NoVariables;
+      end else
+      begin
+        if MessageDlg('Overwrite variable "' + cellstring + '"?', mtConfirmation, [mbYes, mbNo], 0) <> mrYes then
+          exit;
      end;
      for i := 1 to NoCases do
      begin