Delphi, le langage Pascal objet

1. Création d’un projet d’exemple

Pour comprendre cette structure, créons un projet d’exemple.

Via les menus File - New - Console Application, ou en faisant apparaître l’assistant de sélection de projet, le type de projet Console Application apparaît dans la rubrique Delphi.  

L’IDE change d’aspect et fait apparaître dans ce cas le fichier .dpr tel quel :

program Project1; 
 
{$APPTYPE CONSOLE} 
 
{$R *.res} 
 
uses 
 System.SysUtils; 
 
begin 
 try 
   { TODO -oUser -cConsole Main : Insérer du code ici } 
 except 
   on E: Exception do 
     Writeln(E.ClassName, ': ', E.Message); 
 end; 
end. 

À partir du gestionnaire de projet, avec un clic droit, il faut choisir Add New - Unit.

L’IDE fait apparaître le code de l’unité :

unit Unit1; 
 
interface 
 
implementation 
 
end. 

On remarque que dans le gestionnaire de projet l’unité Unit1.pas est apparue.

Exécutons File - Save All pour sauvegarder sur le disque le projet en cours dans le répertoire C:\ENI\Chapitre03.

L’IDE nous propose de sauvegarder d’abord l’unité Unit1.pas. Lors de la sauvegarde, renommons-le en UExempleStructure.pas. Après cela, l’IDE propose de sauvegarder le fichier Project1.dproj. De même, nous pouvons le renommer lors de la sauvegarde en DosProject.dproj.

Une fois le processus de sauvegarde achevé, on observe quelques changements dans...

1. Déclaration

Une variable est une donnée dont la valeur peut changer au cours du programme, a contrario d’une constante dont la valeur est fixe. En Delphi n’importe quelle entité doit être obligatoirement déclarée.

Une variable se déclare avec le mot réservé var de la manière suivante :

var maVariable : Type; 

Après le mot reservé var, on écrit le nom de la variable maVariable. On définit son type en l’indiquant après un ’:’ qui sert de séparateur entre le nom de la variable et son type. Le caractère ’:’ sert toujours de séparateur pour indiquer un type lors d’une déclaration.

Quand il y a une succession de variables à déclarer, on peut répéter le mot var pour chaque ligne ou bien l’utiliser qu’une seule fois comme si on déclarait une section :

var myVariable1 : Type1; 
var myVariable2 : Type2; 

ou :

var 
    myVariable1 : Type1; 
    myVariable2 : Type2; 

Quand plusieurs variables sont du même type, on peut juxtaposer leur déclaration avec une seule utilisation du mot var comme ci-dessous :

var 
    myVar1,myVar2 : myType; 

Une constante se déclare avec le mot réservé const de la manière suivante :...

1. Les types entiers

Voici un tableau résumant l’ensemble des types entiers que l’on peut rencontrer en Delphi :

2. Les types décimaux

Voici un tableau résumant l’ensemble des types décimaux que l’on peut rencontrer en Delphi :

À noter que le type Extended est plus petit sur un système d’exploitation 64 bits.

3. Les types booléens

Il existe quatre types booléens :

Boolean est le type de prédilection. Une variable Boolean occupe 1 octet de mémoire, une variable ByteBool occupe également 1 octet, une variable WordBool occupe 2 octets (un mot), et une variable LongBool occupe 4 octets (deux mots).Les valeurs booléennes sont désignées par les constantes prédéfinies True et False.

4. Les types caractères

On dénombre cinq types caractères en Delphi :

Char est équivalent à WideChar, puisque le type de chaîne par défaut est maintenant...

1. Opérateur d’affectation

L’opération d’affectation se fait par la combinaison :=.

Ainsi, pour affecter la valeur 5 dans la variable dont le nom est myVariableInt, on écrit la ligne suivante :

myVariableInt := 5; 

De même, pour affecter une chaîne de caractères dans la variable myVariableString, on écrit :

myVariableString := 'Hello World'; 

2. Opérations mathématiques

Addition

L’opérateur d’addition est +.

Ainsi, pour affecter le résultat d’une addition, on écrit :

Var  
  myResult : double; 
begin 
 myResult := 8+3.1; 
end; 

ou en utilisant des variables pour les opérandes :

Var 
    Operand1 : integer; 
    Operand2 : double; 
    myResult : double ; 
begin 
 operand1 := 8; 
 operand2 := 3.1; 
 myResult := operand1+operand2; 
end; 

Le type du résultat doit être un double car une des deux opérandes est un nombre décimal.

Et dans les deux cas, la valeur de myResult vaut 11.1.

Dans le cas des chaînes de caractères, l’opérateur + effectue une concaténation des deux chaînes et retourne une nouvelle chaîne de caractères.

var aStringRight,aStringLeft,aStringResult:string; 
begin 
  aStringRight := 'Bonjour !'; 
  aStringLeft := ' Comment allez-vous ?'; 
  aStringResult := aStringRight+ aStringLeft; 
end; 

Dans l’exemple ci-dessus, la valeur de aStringResult vaut ‘Bonjour ! Comment allez-vous ?’. C’est une méthode très pratique pour créer des chaînes de caractères...

1. Les tests de conditions

On peut tester des conditions avec deux types de blocs de test : le bloc if then else ou le bloc case of else.

2. If then else

L’instruction if then else est la plus couramment utilisée pour tester une condition logique. Elle s’écrit ainsi :

Begin 
 If (aLogicCondition) then 
 Begin 
    //code to execute if condition is true 
 End 
 Else 
 Begin 
   //code to execute if condition is false 
 End; 
End; 

Après le then et le else, il y a un bloc begin/end pour définir le bloc de code qui s’exécute dans telle ou telle condition.

Dans certains cas, on peut se passer de ce bloc begin/end mais pour une meilleure lisibilité, il est préférable de toujours le définir.

On remarque qu’avant le else, il n’y a pas de ; à la fin du end.

On peut combiner plusieurs évaluations de condition logique avec la combinaison de mot réservé else if comme suit :

Begin 
 If (aLogicCondition) then 
 Begin 
    //code to execute if condition is true 
 End 
 Else If (anotherLogicCondition) then 
 Begin 
    //code to execute if condition is true 
 End 
 Else 
 Begin 
   //code to execute if condition is false 
 End; 
End; 

3. Case of else

On se sert du bloc d’évaluation case of else dans le cas d’énumérations, mais il est équivalent à une succession de if / else if.

On l’écrit comme suit :

  procedure DisplayNameofTheDay(aDayNumber:integer) 
 begin 
     Case aDayNumber of 
         1 : begin 
                //bloc to execute for monday 
                end; 
         2 : begin 
                //bloc to execute for tuesday 
                end; 
         3 : begin 
                 //bloc to execute for wednesday 
           ...

1. Les fonctions de conversion pour les chaînes de caractères

Concernant les deux derniers, il est recommandé d’utiliser les fonctions StrToIntDef ou StrToFloatDef car elles incluent le retour d’une valeur par défaut en cas d’échec de la tentative de conversion.

Ci-dessous est présenté un exemple pour mettre en évidence l’utilisation de ces routines de conversion.

var 
   Astring:string; 
   aValue:integer; 
begin 
 astring:='1234'; 
 aValue := StrToInt(Astring); 
 aString := 'Bonjour'; 
 avalue:= StrToIntDef(Astring,0); 

La première conversion donnera bien sûr 1234 et la deuxième 0 car la chaîne de caractères ’Bonjour’ ne peut pas être convertie en entier. Sans l’utilisation...

1. Définition

Considérons que la mémoire d’un ordinateur est un tableau plus ou moins grand où l’on peut stocker des informations. Pour faire simple, imaginons que chaque case de ce tableau représente un octet.

Dans notre programme, nous voulons afficher une image qui fait 80 kilo-octets. Il va falloir adresser 81920 cases (80 x 1024) pour stocker l’image en mémoire. 

Supposons que la première case qui stocke les informations de l’image soit à l’adresse 100000.

Un pointeur sur cette image sera une variable qui contient l’adresse de cette image, soit 100000.

Ainsi, de manière plus générale, un pointeur...