Bonjour à tous ,
Dans le code sur le lequel je travaille actuellement, tous les fonctions ou précédures sont codées à l'intérieur d'un try except.
L'appel de la trace utilise le nom de l'unité en cours et le nom de la fonction en cours.
Ces informations sont renseignés en dur lors de l'écriture d'une nouvelle fonction ou procédure et ceci pour dans toutes les unités
Connaissez vous un moyen de récupperer dynamiquement ces informations ?
Exemple d'une proc codée actuellement
end;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 procedure TFrmTerminPort.TbShtIntegrationShow(Sender: TObject); begin try RafraichirListeColisaIntegrer; except ModFenetrePrincipale.GEClient.TraceErreur('FrmTerminPort', Self.ClassName, 'TbShtIntegrationShow'); raise; //Redéclenchement de l'exception end;
Merci d'avance
A bientôt
Pitango
Partager