Unité simple

Ouvrez un projet dans lequel vous voulez utiliser les procédures, fonctions ou objets que vous voulez rassembler. Allez dans le menu Fichier et cliquez sur Nouvelle unité. Une nouvelle page apparaît dans l'éditeur de code. Vous pouvez dès lors enregistrer le fichier. Donnez-lui un nom évocateur.

Un fichier d'unité est constitué de deux parties, l'interface et l'implémentation. Pour ajouter une procédure ou une fonction, écrivez tout d'abord son prototype dans la partie interface, c'est-à-dire avant le mot-clé implementation. Par exemple, pour définir une fonction qui calcule la factorielle d'un nombre :

function factorielle(n: byte): longint;

Ensuite, mettez le curseur sur la ligne de prototype et appuyez sur Ctrl-Shift+C. L'éditeur de code ajoute automatiquement le corps de la fonction dans la partie implémentation (c'est-à-dire après le mot-clé implementation). En l'occurrence, cela donne :

function factorielle(n: byte): longint;
begin
 
end;

Il ne reste plus qu'à écrire le code de la fonction, déclarer les variables locales nécessaires, etc. Il est bien entendu possible de déclarer plusieurs procédures et fonctions dans la partie interface et de mettre le corps de ces procédures et fonctions dans la partie implémentation.

Voilà un exemple de code complet pour l'unité créée :

unit UMath;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils; 
 
function Factorielle(n: byte): longint;
 
implementation
 
function Factorielle(n: byte): longint;
var k: integer;
begin
  result := 1;
  for k := 2 to n do
    result := result*k;
end;
 
end.

Pour utiliser les fonctions et les objets qu'on a définis, il faut ajouter le nom des unités à utiliser dans une clause uses. Supposons qu'on ait écrit une unité UMath et qu'on veuille l'utiliser dans une autre unité (par exemple dans le code d'une fenêtre). On ajoute tout juste après le mot-clé implementation la ligne suivante :

uses UMath;

Tout le code qui suivra pourra alors utiliser les fonctions de UMath. Par exemple, si l'on veut que, lorsque l'on clique sur un bouton, le résultat de 6! soit écrit dans un champ texte, on double-clic sur le bouton en question, ce qui affiche l'éditeur de code avec une procédure vide. Dans cette procédure, on rajoute le code suivant :

Edit1.Text := IntToStr(Factorielle(6));

Ce qui a été expliqué fonctionne également pour les procédures et les objets.

Si l'on ouvre un autre projet, l'unité que l'on vient de créer ne sera pas reconnue par défaut. Il y a alors deux solutions.

Ajouter le fichier au projet▲

Utiliser une dépendance relative▲

UMath in '..\projmath\umath.pas'

program project1;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms
  { you can add units after this }, Unit1, UMath in '..\projmath\umath.pas';
 
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.