Debogueur delphi avec stack trace

Salut à tous, je mets en pièce jointe du forum une source d'un deboggeur pas mal permettant de récuperer la ligne, le nom de l'unité, une pile stack des derniers appels... et pas mal d'autres fonction.
J'ai modifier les lignes 395 et 396 du fichier U_XAM_Debug.pas pour mettre:

Code:

1
2
for i := i1   to iend do if (Pos('Publics by Name', Strings[i]) <> 0)  then begin i2  := i; break; end;
      for i := i2   to iend do if (Pos('Publics by Value', Strings[i]) <> 0) then begin i2b := i; break; end;

Ainsi que variants dans le use de U_XAM_Global.pas
Car ce n'était pas compatible avec BDS 2006.
Le code n'est pas de moi, mais le site de l'auteur est hs...
Je mets quand même la license:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
{
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
PLATFORM  : Windows 9x/NT/XP - Delphi 5,6,7
PROJECT   : eXpress Application Manager
FILE      : U_XAM_Global.pas
PURPOSE   : Global constants, datas & functions.
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
CREATION  : v 1.0.0 - 01/2003 - Olivier Rogier
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
LICENSE   : This source code is freeware and it is provided as is!
            The author will take no responsibility for any damages resulting form the use of it!
 
  All the files included in the installation package of this software are the property of the author.
  This source code maybe freely distributed under following conditions:
 
    * Charging and selling this source code is prohibited.
    * Distribution must be complete with all original files unchanged.
    * If you include this source code in software (free or commercial) you must indicate the origin and its author.
    * If you add own files or made changes, clearly identify that you are providing them.
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
}