Discussion :

[XeGregory]

Bonjour,

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

Code :

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

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

[ALWEBER]

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

Code :

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

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

[Andnotor]

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.

[XeGregory]

Merci

[ShaiLeTroll]

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 :

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

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 :

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

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 :



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

Code :

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

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

[Andnotor]

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 :

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

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}