V10.7

2025-08-07 09:53:54 +02:00
parent 037e56f666
commit 659c39512c
20 changed files with 4357 additions and 4190 deletions
--- a/UnitIntro.pas
+++ b/UnitIntro.pas
@@ -22,7 +22,7 @@ type

 var
  FormIntro: TFormIntro;
-  AchercherDet,AchercherCanton : integer;
+  AchercherDetAig,AchercherCanton : integer;

 implementation

@@ -35,10 +35,12 @@ begin
  close;
 end;

+
+
 procedure TFormIntro.ButtonTrDetClick(Sender: TObject);
 var erreur : integer;
 begin
-  val(LabeledEditDetAig.text,AchercherDet,erreur);
+  val(LabeledEditDetAig.text,AchercherDetAig,erreur);
  close;
 end;