Discussion :

[Roland Chastain]

Bonjour !

Je voudrais savoir si et comment on peut modifier les options de projets par défaut dans Delphi XE2.
Je voudrais ajouter des alias d'unités qui s'appliqueraient à tous mes projets.
Je pensais aussi ajouter des chemins vers des unités, mais il serait encore plus simple de mettre les unités compilées dans le bon répertoire, non ?

[ShaiLeTroll]

Regarde les fichiers OptSet, cela peut aider mais ce n'est pas évident

[Roland Chastain]

Merci pour le lien, ShaiLeTroll. Je ne connaissais pas ces jeux d'options : ça répond effectivement à mon problème.

[Roland Chastain]

Pour prolonger un peu la discussion, je présente mon cas.

Par exemple j'utilise une unité Console qui reprend exactement les fonctions l'unité pascal Crt. Je ne sais pas ce qui a retenu l'auteur de l'appeler Crt.

Pour le moment je déclare l'unité comme ça :

Code :

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

1
2
3
4
uses
  System.SysUtils,
  Console in 'C:\Program Files\Embarcadero\RAD Studio\9.0\source\Console\Console.pas';
//http://rvelthuis.de/programs/console.html

Mais si je veux pouvoir compiler aussi avec Virtual Pascal : il faut ajouter des directives de compilation, ça devient lourd comme écriture.

Je vais voir comment utiliser les jeux d'options pour obtenir cette combinaison "alias plus chemin".

[Roland Chastain]

Voilà, ça fonctionne. Merci ShaiLeTroll !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program Nouveau;
 
{$APPTYPE CONSOLE}
 
uses
  Crt, Strings;
 
var
  a: array[0..80]of char;
 
begin
  TextBackground(Blue);
  TextColor(White);
  ClrScr;
  StrCopy(a, 'test');
  WriteLn(a);
  ReadLn;
end.

Et voici ce qu'il y a dans le fichier OPTSET :

<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<DCC_UnitAlias>Crt=Console;Strings=SysUtils;$(DCC_UnitAlias)</DCC_UnitAlias>
<DCC_UnitSearchPath>C:\Program Files\Embarcadero\RAD Studio\9.0\source\Console;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
</PropertyGroup>