V8.24

2023-10-19 13:04:16 +02:00
parent 138f0918df
commit b33561a463
16 changed files with 1578 additions and 793 deletions
--- a/UnitDebug.pas
+++ b/UnitDebug.pas
@@ -248,9 +248,9 @@ var i,l,positionErreur : integer;
    s : string;
    trouve : boolean;
 begin
-  // faire avec 
  with RichDebug do
  begin
+    ligneErreur:=0;
    repeat
      s:=lowercase(Lines[ligneErreur]);
      positionErreur:=pos('erreur',s);