Les nouveautés de Delphi 2009

C'est le grand changement de l'intégration de l'Unicode : le type String est maintenant équivalent au type UnicodeString (de même que Char et PChar sont équivalents à WideChar et PWideChar). Ce changement permet de stocker des chaines Unicode dans n'importe quelle propriété d'un composant sans devoir réécrire le code.

Attention tout de même: ce changement demandera à vérifier/modifier une partie du code existant, surtout si vous faites appel aux PChar. Le type Char étant maintenant sur deux octets au lieu d'un, toutes les opérations faites avec des Char et PChar pour traiter des octets deviendront fausses. De nombreux warnings sont générés par le compilateur dans ce cas, ils vous aideront à mettre à jour le code. Notez que si votre code doit rester en codage Ansi dans Delphi 2009, il suffit de déclarer les variables en AnsiChar ou lieu de Char, AnsiString ou lieu de String et PAnsiChar ou lieu de PChar.

L'évolution du langage permet aussi d'utiliser des caractères Unicode dans le code pour le nommage des identificateurs, que ce soit pour des variables, des composants ou même des Unités.

La VCL a été revue pour utiliser de l'Unicode dans toutes les propriétés contenant des chaines :

La classe TStringBuilder est une nouvelle classe de construction de chaine. Elle est plus rapide que le traitement classique du String, car elle contient un buffer interne qui n'est pas alloué/desalloué à chaque modification. Elle ne contient pas non plus de compteur de référence.

Cette classe s'utilise comme la classe System.Text.StringBuilder du framework Dotnet, facilitant ainsi la compatibilité d'application entre Delphi pour Win32 et Delphi pour .NET.

Le type TObjet comporte trois nouvelles méthodes virtuelles :

• ToString : retourne une chaine représentant l'objet ;
• GetHashCode : retourne un code d'indentification de l'objet, ce code permet de comparer le contenu de deux objets différents de la même classe ;
• Equals : compare l'instance de l'objet avec l'instance passée en paramètre.

Ces méthodes étant virtuelles, il appartient aux classes descendantes de les implémenter. Le fait qu'elles soient définies au plus bas niveau permet de les utiliser sur n'importe quelle classe d'objet.
À noter que ces méthodes existent déjà sur le TObject de base du framework .NET.

Une méthode est une méthode sans nom dont le code lui-même est stocké dans une variable. Le code affecté garde une trace de l'environnement et des variables locales utile à son fonctionnement. Il n'est pas exécuté à l'affectation de la variable qui le contient, mais quand cette variable est elle-même appelée.

Pour utiliser les méthodes anonymes, il faut toujours créer un type définissant le prototype d'appel de la méthode anonyme. Ici c'est une fonction retournant un entier.

Type
  TCompteur = Reference To Function:Integer;

Une variable de ce type est alors affectée en recevant directement le code inline ou par affection d'une autre fonction anonyme du même type.
Ici sur le bouton BtnCreer, on affecte le code devant être utilisé :

type
  TForm4 = class(TForm)
    ...
  private
    { Déclarations privées }
    Compte : TCompteur;
    ...
  end;

//..........

procédure TForm4.BtnCreerClick(Sender: TObject);
Var i:Integer;
begin
  // Initialisation variable locale
  i:=0;
  // On affecte la fonction anonyme à Compte qui
  // se chargera d'en garder la référence
  Compte := Function:Integer
  Begin
    // I est utilisé dans le code bien qu'étant une variable
    // locale de BtnCreerClick()
    Result := i;
    Inc(i);
    if i>2 then
      i:=0;
  End;
end;

Une fois que l'on a cliqué sur le bouto BtnCreer, on peut utiliser la variable Compte pour générer la valeur suivante du compteur. Par exemple on l'affiche une dizaine de fois :

procedure TForm4.BtnUtiliseClick(Sender: TObject);
Var N:Integer;
begin
  // On utilise Compte, le compteur va bien suivre la séquence
  // 0 1 2 0 etc...
  for N := 0 to 9 do
    Memo1.Lines.Add(IntToStr(Compte));
end;

La procédure Exit accepte maintenant un paramètre facultatif du même type que le type de retour de la fonction où il est placé. Ce paramètre est la valeur de retour de la fonction quand l'Exit est exécuté.
Par exemple :

Function Test(Valeur:Integer):Integer;
Begin
  // test valeur hors limite
  if Valeur<0 then
    Exit(-1);
  // Traitement
  Result:=Round(SQRT(Valeur));
End;

procédure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(IntToStr(Test(-20)));// Affiche -1
  ShowMessage(IntToStr(Test(64))); // Affiche 8
end;

Cette nouveauté permet d'alléger le code, dans Delphi 2007 il faudrait écrire :

  // test valeur hors limite
  if Valeur<0 then
  begin
    Result := -1;
    Exit;
  end;

VII-A-1. TCategoryPanelGroup▲

Le TCategoryPanelGroup permet de réaliser rapidement une palette d'outils ou d'options ressemblant à celle des composants de l'éditeur de fiches. Ce composant contient un ensemble de TCategoryPanel repliables.

C'est ici sa présentation pas défaut, mais il est possible de changer complètement l'apparence via l'inspecteur d'objets.

VII-A-2. TButtonedEdit▲

Ce composant est un dérivé de TEdit sur lequel il est possible d'ajouter un bouton sur la gauche et un sur la droite. Ces boutons sont dessinés via un TImageList. L'appui sur l'un des boutons génère un évènement ou plus simplement ils peuvent être associés à un TPopUpMenu pour faire une liste déroulante.

VII-A-3. TLinkLabel▲

Ce composant permet de mettre un label contenant un lien hypertexte cliquable. Il n'y a pas de propriété particulière: le champ Caption doit contenir un lien (ou des liens) composé à l'aide de la balise HTML <a>.

 

Sélectionnez

LinkLabel1.Caption := 'C''est un lien vers <a href="https://www.developpez.com">www.developpez.com</a>';

Les liens sont bien dessinés avec une autre couleur. Un évènement particulier est déclenché sur le clic sur un lien, cet évènement contient en paramètre l'adresse du lien.

VII-A-4. TBallonHint▲

Ce composant est un composant non visuel permettant de modifier l'apparence du hint affiché sur un composant. Une fois placé sur la fiche, il faut l'associer aux composants concernés par la nouvelle propriété CustomHint.

À noter qu'il est possible aussi de définir tous les composants d'une fiche en associant le BallonHint directement à la fiche et en laissant la nouvelle propriété ParentCustomHint à True pour les composants contenus.

VII-A-5. TRibbon▲

Ce composant permet de donner à vos applications des barres d'outils semblables à celles d'office 2007. Voici en quelques clics de souris ce que l'on peut obtenir :

Delphi 2009 permet maintenant d'intégrer des images dans le TButton de base, ces images sont personnalisables pour les modes normal, survolé, enfoncé et désactivé du bouton. L'image peut être centrée afin de remplacer le caption du bouton.

Le TEdit contient une propriété NumbersOnly permettant de n'entrer que des chiffres. Quand un caractère non autorisé est entré, une bulle s'affiche pour le signaler.

Le TImage supporte maintenant le PNG, y compris les effets de transparence.
Dans l'image ci-dessous le logo CodeGear au format PNG est dans un TImage, cette image est placée sur sur trois TShape bleu, blanc et rouge afin de faire ressortir les ombrages.

Le TImageList permet maintenant de contenir tous les formats lisibles dans un TImage. Il n'est plus nécessaire de tout convertir en BMP pour remplir le TImageList.