V8.51

2024-03-06 15:41:14 +01:00
parent 315b803e40
commit 81d5c007d4
25 changed files with 2640 additions and 1884 deletions
--- a/Importation.pas
+++ b/Importation.pas
@@ -70,6 +70,7 @@ procedure TFormImportation.EditBaseCroisChange(Sender: TObject);
 var i,erreur : integer;
 begin
  val(editBaseCrois.text,i,erreur);
+  if i<0 then i:=0;
  if erreur=0 then BaseCroisement:=i;
 end;