Discussion :

[ryko]

Bonjour,

à tout hasard, est-il possible de tracer le passage dans une fonction pour enregistrer le nom de cette fonction avec les paramètres et le résultat dans un fichier ascii ?

Et bien entendu, sans ajouter dans la fonction des lignes du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
stringlist1.lines.add('passage dans la fonction Function_One');
stringlist1.savetofile('...');

Ca m'aiderait bien

[cfalcot]

Si c'est pour le debuggage:

http://olance.developpez.com/article...accourcis-ide/

(Un super article)
Dans la section Exécution/débuggage le dernier et avant dernier raccourcis...

[ryko]

Voila, dans le même genre mais en mode exécution hors Delphi...
C'est pas gagné hein ?

[anapurna]

salut

2 solution
1ere au sein de l'IDE

petite procedure a ajouter dans les unitées utils

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Procedure DebugPrintFmt (Const FmtString : String ;Const Args : Array Of Const ) ;
Begin
  OutputDebugString(PAnsiChar(Format(FmtString,Args)));
end;

elle permet d'inserer un element dans la fenetre de suivi

l'autre ecrit dans un fichier debug.txt a la racine du disque

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
procedure suiviebug(const aMessage: string);
 var
    Hour, Min, Sec, MSec: Word;
    F: system.text;
begin
 
    system.Assign (F,'c:\debug.txt');
    system.Append (F);
  DecodeTime(Now, Hour, Min, Sec, MSec);
    system.Writeln (F,Format('%.2d:%.2d:%.2d.%.3d | %s', [Hour, Min, Sec, MSec, aMessage]));
    system.Close (F);
end;

@+ Phil

[ryko]

Merci à vous pour vos propositions.
Je reste donc avec mes fonctions contenant des écritures vers un stringlist. Ce qui m'embêtait en fait c'était de devoir écrire plusieurs fois la même chose dans une même fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
function toto(a:integer;b:string):integer;
begin
if a=1 then begin
   tracelist.lines.add('Fonction toto');
   tracelist.lines.add(' > paramètres : a=1, b=truc');
   tracelist.lines.add(' > calcul effectué : result:=a*a');
   result:=a*a;
end else begin
if a=2 then begin
   tracelist.lines.add('Fonction toto');
   tracelist.lines.add(' > paramètres : a=2, b=truc');
   tracelist.lines.add(' > calcul effectué : result:=a*2');
   result:=a*2;
end;

Evidemment ce n'est qu'un exemple. Mais le fait est que je me retrouve avec une dizaine de fonctions qui sont appelées en fonction d'autres paramètres, contenant chacune une dizaine de tests pour décider quel calcul effectuer : je me retrouve donc avec une tripotée de texte de trace que j'ajoute à la main. C'est vite ch**nt !

Les plus malins auront déjà répondu : le temps que tu passes à poser la question, tu aurais déjà fini ta saisie !!! Bon, ben, j'y retourne !