Discussion :

[PiPo123]

Bonjour,

J'essaie présentement la version trial de Delphi XE3 et je me demandais s'ils avaient ajouté au language l'équivalent des preprocesor macros commands comme en C++, voir exemple ci-dessous. Il semble que non dommage.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
#define ERRMSG(x, str) printf("Error: %d \n%s", x, str)
 
#define SUM(x,y)  ((x) + (y))
:
 
ERRMSG(2, "Press Enter, then ESC");
 
/*expands to:  printf("Error: %d \n%s", 2, "Press Enter, then ESC"); */
 
return SUM(f(i, j), g(k, l));
 
/*expands to:  return ( (f(i, j)) + (g(k, l)) ); */

On oubli {$I filename} {$INCLUDE filename} ce n'est pas fait pour ça.

Comment réaliser la même chose avec Delphi ? Est-ce possible ?

Merci à tous.

[ShaiLeTroll]

Une Fonction ! non ?
Utilisation de la directive inline qui avec une faible chance pourrait peut-être t'éviter quelques PUSH et CALL

Code :

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

1
2
3
4
procedure ERRMSG (x: Integer; const str: string); inline;
begin
  MessageDlg(Format('Error: %d '#13#10'%s', [x, str]), mtError, [mbOK], 0);
end;

[PiPo123]

J'aurais du ajouter que les macros devront être utilisés plusieurs fois peut-être même plusieurs dizaines de fois donc inline ne serait pas justifié ici.

Merci.

[Andnotor]

J'aurais du ajouter que les macros devront être utilisés plusieurs fois peut-être même plusieurs dizaines de fois donc inline ne serait pas justifié ici.

C'est pourtant là où cette directive trouve tout son intérêt
(pour autant que tu parles bien de boucles ou d'appels récursifs)

[PiPo123]

Mise à jour,

Je viens de me rappeler que Turbo Pascal l'ancêtre de Delphi était un compilateur 1 passe donc il a une impossibilité technique a cette fonctionnalité car il est impossible d’avoir des fonctions de prétraitement si on a pas au moins 2 passes et Delphi semble suivre la même approche que son illustre parent Turbo Pascal. Donc peine perdu en théorie du moins car on pourrait toujours lancer un programme extérieur pour faire le boulot.

Zut...

[Paul TOTH]

Mise à jour,

Je viens de me rappeler que Turbo Pascal l'ancêtre de Delphi était un compilateur 1 passe donc il a une impossibilité technique a cette fonctionnalité car il est impossible d’avoir des fonctions de prétraitement si on a pas au moins 2 passes et Delphi semble suivre la même approche que son illustre parent Turbo Pascal. Donc peine perdu en théorie du moins car on pourrait toujours lancer un programme extérieur pour faire le boulot.

Zut...

la compilation 1 passe impose que tout ce qui est utilisé soit déclaré en amont, mais rien n'empêche théoriquement d'avoir des macros.

Par contre je trouve personnellement que cela nuit à la lisibilité du code.

la version Pascal des macros c'est "inline", mais ta réponse à Shai me fait penser que tu ne comprends pas soit les macros, soit l'inline, car le résultat est le même.

[PiPo123]

Hum... C'est possible, si le compilateur le voit en amount il devrait pouvoir insérer le code sans problème donc ce que j'ai dit précedemment n'est peut-être pas pertinent, réponse trop rapide !. J'ai peut-êre mal choisi mon exemple car il ne s'agit pas nécessairement d'insérer des fonctions ou procédures une vrai macro peut insérer n'importe quoi non !

[Paul TOTH]

Hum... C'est possible, si le compilateur le voit en amount il devrait pouvoir insérer le code sans problème donc ce que j'ai dit précedemment n'est peut-être pas pertinent, réponse trop rapide !. J'ai peut-êre mal choisi mon exemple car il ne s'agit pas nécessairement d'insérer des fonctions ou procédures une vrai macro peut insérer n'importe quoi non !

La réponse finale est donc, même s'il existe des solutions pour certains cas, Delphi ne supporte pas les macros.

[PiPo123]

Voilà, discussion terminée.