Trace ascii du passage dans une fonction

Version imprimable

10/05/2006, 16h05
ryko

Trace ascii du passage dans une fonction
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:

1 2 3 stringlist1.lines.add('passage dans la fonction Function_One'); stringlist1.savetofile('...');
Ca m'aiderait bien
10/05/2006, 16h12
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...
10/05/2006, 16h15
ryko

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

salut

2 solution
1ere au sein de l'IDE

petite procedure a ajouter dans les unitées utils

Code:

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:

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

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:

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 !!!:lol: Bon, ben, j'y retourne !