V4.6

2022-08-23 17:40:53 +02:00
parent 42665ee837
commit 6dcb74c06c
14 changed files with 585 additions and 299 deletions
--- a/UnitSimule.pas
+++ b/UnitSimule.pas
@@ -116,6 +116,7 @@ begin
          end;
        end;
      end;
+      Application.ProcessMessages;
      sortie:=eof(fte) or (index_simule>Max_Simule);
    until sortie ;
    if index_simule>Max_Simule then Affiche('Tableau maximal atteint',clred);