Italian community of Lazarus and Free Pascal

Per libreria si intende una raccolta di procedure e funzioni. L'uso delle librerie è molto frequente perché permette di suddividere la scrittura del codice da uno a più file, in modo da rendere il codice più leggibile, meglio strutturato e riutilizzabile. Per realizzare una nuova libreria basta andare su FILE → NUOVA UNIT dopodichè comparirà questo codice:

unit Unit2;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils;

implementation

end.

Dove unit è una parola riservata che identifica l'inizio della nostra libreria e Unit2 rappresenta il nome della nostra libreria. Nel nostro caso dobbiamo cambiare Unit2 con il nome che vogliamo dare alla nostra ipotetica libreria, ipotizziamo FunzioniRiciclabili, si noti che quando si va a salvare la libreria bisogna dargli lo stesso nome della unit.

Dopodichè esiste un commento che ignoriamo per andare a vedere la parola riservata interface, dove all'interno di questo segmento di codice possiamo dichiarare costanti, variabili, funzioni e procedure visibili dall'esterno della libreria stessa.

Segue poi la parola riservata uses dove all'interno di questo segmento di codice dobbiamo inserire le librerie che ci servono per poter compilare le nostre funzioni e procedure.

Infine esiste il blocco implementation end. che contengono l'implementazione del codice, ovvero dove dobbiamo scrivere le procedure e le funzioni per intero.

Vediamo ora un esempio pratico, questa librerie che segue contiene una sola funzione di nome ContieneCaratteriNonConcessi.

unit FunzioniRiciclabili;

{$mode objfpc}{$H+}

interface

function ContieneCaratteriNonConcessi(MiaStringa: string): integer;

implementation

uses

Crt;

{Mi dice se nella stringa ci sono caratteri tipo il punto e virgola che non sono ammessi}

function ContieneCaratteriNonConcessi(MiaStringa: string): integer;

var

i: integer;

lung: integer;

Esci: integer;

begin

lung:=Length(MiaStringa);

i:=1;

Esci:=0;

while ((i<lung) AND (Esci=0)) do

begin

if MiaStringa[i]=';' then

begin

Esci:=1;

end;

i:=i+1;

end;

ContieneCaratteriNonConcessi:=Esci;

end;

end.

Come si può evincere da questo esempio il nome della libreria è FunzioniRiciclabili e l'unica funzione contenuta al suo interno lavora sulle stringhe, ovvero in base ad una stringa passata per parametro che se non contiene il carattere ; allora restituisce il valore numerico 0, altrimenti restituirebbe 1.

Ora che abbiamo scritto la nostra libreria è importante riuscire a poterla usare nelle altre unit che compongono il programma. Per fare ciò bisogna immettere nella sezione uses della unit in cui vogliamo usare la funzione appena scritta il nome della libreria appena creata, nel nostro caso sarebbe FunzioniRiciclabili, e ora possiamo usare la funzione ContieneCaratteriNonConcessi liberamente.