decimal separator, save to file

set decimal separator to '.' and save to file
faludiz · Dec 20, 2022 · c87e857 · c87e857
1 parent e9d374a
commit c87e857
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/source/main.pas b/source/main.pas
@@ -102,6 +102,7 @@ procedure TfrmMain.btnSaveGCPFileClick(Sender: TObject);
  fpts[idx].Name]);
  end;
  end;
+ txt.SaveToFile(sdGCP.FileName);
  txt.Free;
  end;
 end;
@@ -158,6 +159,8 @@ procedure TfrmMain.btnDelClick(Sender: TObject);
 procedure TfrmMain.FormCreate(Sender: TObject);
 begin
 
+ DefaultFormatSettings.DecimalSeparator:='.';
+
  loadcrs(fcrs);
  LOG.Lines.Add('crs=%d', [length(fcrs)]);
  cmbCRS.Clear;