Delphi Trace Debug

 (CD-ROMDelphi.TraceProjet)

Objectif : suivre pas à pas l'exécution d'un morceau de programme

La fiche principale, le code associé dans la unit
 

Exécuter le programme sous Delphi en mettant un point d'arrêt sur l'instruction à explorer :

Lancer le programme qui s'arrête sur la ligne "Form1.Edit1.Text:=inttostr(Fact);", puis pour continuer l'exécution ligne par ligne vous utilisez sur les boutons de pas à pas :

    et 
Lors de l'exécution en pas à pas Delphi vous surligne  chaque ligne qu'il va exécuter tout en affichant à chaque étape les contenus des variables réactualisés :

La fiche principale du  projet :

                                                                                                Remonter  en haut.

Le code de la Unit fiche principale :

unit UDebug ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

var
 CompteAppel:integer;

{$R *.DFM}

procedure Fact1;
var i,Fact:integer;
begin
 Fact:=1;
 for i:=1 to 12 do
 begin
  Fact:=fact*i;
  Form1.Edit1.text:=inttostr(Fact)
 end;
 Form1.Edit2.text:='Fin du calcul'
end;

function Fact2(n:integer):integer;
begin
  inc(CompteAppel);
  if n=0 then
    Fact2:=1
  else
    Fact2:=n*Fact2(n-1)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Fact1;
  CompteAppel:=0;
  Edit3.text:=inttostr(Fact2(12))
end;

end.                                             Remonter  en haut