Ajouter un mode Debug

Bonjour,

Peut t'on ajouter une procédure en mode Debug (Configurations de build) de cette façon :

Code:

---

1 2 3 4 5 6 7

{$IFDEF DEBUG} procedure TSokoban.CheckAllLvlSolveur; begin // ------- end; {$ENDIF}

---

Je me demande si cela est possible dans une application, ou s'il est déconseillé.

Merci :D

Je l’utilise sans problème dans mes programmes et aussi dans la partie constante

Code:

---

1 2 3 4 5 6

{$IFNDEF DEBUG} FPSecurity = true ; {$ELSE} FPSecurity = false ; {$ENDIF}

---

Quand tu passes d'un mode à l'autre tu peux être amener à reconstruire plutôt que recompiler si comme moi tu redirige tout tes dcu's au même endroit

Il n'y a aucune restriction.

Tu peux même uniquement conditionner les appels ; si la méthode n'est jamais invoquée, elle n'est pas compilée.

Merci ;)

Pour ma part, j'utilise souvent avec un niveau en plus soit DEV, DEBUG et RELEASE, car parfois, on peut fournir une version DEBUG pour un client (en SAAS) pour analyser un problème mémoire (avec fichier MAP ...)
La version DEV est totalement interne !
Parfois une autre directive s'ajoute comme IMPL_INDY, IMPL_ICS ... quand on a un problème avec une lib de ce genre, on tente un code expérimental, cela permet d'obtenir plus de log la plupart du temps, le TRESTClient étant très peu explicite à ce sujet par exemple.

Sinon, le cas le plus fréquent d'utilisation, systématique dans mon ancien emploi, et pour les outils internes pour l'actuel, c'est dans le DPR :

Code:

---

1 2 3 4 5 6 7 8 9

Application.Run;   {$IFDEF DEBUG} {$WARN SYMBOL_PLATFORM OFF} System.ReportMemoryLeaksOnShutdown := DebugHook <> 0; {$WARN SYMBOL_PLATFORM ON} {$ELSE DEBUG} System.ReportMemoryLeaksOnShutdown := False; {$ENDIF DEBUG}

---

Tu peux créer tes propres directives, par exemple, ponctuellement, pour un débogage Indy (POP, IMAP, SMTP) :

Code:

---

1 2 3 4 5 6

{$IFDEF INDY_INTERCEPT} FIdConnectionIntercept := TIdConnectionIntercept.Create(nil); FIdConnectionIntercept.OnReceive := InterceptReceiveEventHandler; FIdConnectionIntercept.OnSend := InterceptSendEventHandler; FIdMessageClient.Intercept := FIdConnectionIntercept; {$ENDIF}

---

Certaines devenant des "classiques", tu peux faire tes propres configurations :

Pièce jointe 667988

Tu peux le combiner avec le fait d'être aussi lancé depuis Delphi en débogage :

Code:

---

1 2 3 4 5 6 7 8

{$IFDEF MA_DIRECTIVE} {$WARN SYMBOL_PLATFORM OFF} if System.DebugHook <> 0 then begin OutputDebugString ... end; {$WARN SYMBOL_PLATFORM ON} {$ENDIF}

---

Enfin, tu trouveras pas mal de code dans FMX qui utilise les directives pour faire les uses ou pour une factory selon l'OS

Exemple très simple uOSUtils.OSExecute par exemple

Il est très rare que j'utilise directement {$IFDEF DEBUG} dans l'implémentation, je l'utilise plutôt pour conditionner d'autres conditions (ce qui limite le retour d'information à un cas précis).

Code:

---

1 2 3 4 5 6 7 8 9 10

{$IFDEF Debug} { $DEFINE ScrollElementIntoView} { $DEFINE ScrollParentIntoView} { $DEFINE ScrollMouseIntoView} {$DEFINE ScrollTouchIntoView}   {$IF Defined(ScrollElementIntoView) or Defined(ScrollParentIntoView) or Defined(ScrollMouseIntoView) or Defined(ScrollTouchIntoView)} {$DEFINE Scroll} {$ENDIF} {$ENDIF}

---