Written by xinyiman Ottobre 24, 2011, 08:47:00 am24521 ViewsRating: 0 (0 Rates)Print
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.
About the author
xinyiman registered at Italian community of Lazarus and Free Pascal on Ottobre 14, 2011, 10:56:28 pm and has posted 3282 posts in the boards since then. Last visit was Oggi alle 11:24:54 am.
Questo blog non rappresenta una testata giornalistica poiché viene
aggiornato senza alcuna periodicità. Non può pertanto considerarsi un
prodotto editoriale ai sensi della legge n. 62/2001.
Questo sito utilizza cookie, anche di terze parti, per offriti servizi in linea con le tue preferenze. Chiudendo questo banner, scorrendo questa pagina, cliccando su un link o proseguendo la navigazione in altra maniera, acconsenti all’uso dei cookie.