Italian community of Lazarus and Free Pascal

Si può considerare una variabile come un contenitore dove andare ad immagazzinare un informazione. Questa informazione può variare nel tempo, proprio per questo si chiama variabile. Si può considerare una costante al pari di una variabile ma una volta riempita con un valore quello rimane fisso fino alla fine del programma. Quando si dichiara una variabile si occupa dello spazio in memoria per tutta la durata del programma o della funzione o della procedura, dipende dove questa variabile è dichiarata. Si può anche dire allocare in memoria una variabile. Affronteremo questo capitolo in maniera pratica come sarà di consuetudine in questa community. Per capire l'argomento di discussione di questo capitolo apriamo una nuova console application come abbiamo fatto precedentemente per il primo programma.

Dove troviamo scritto { add your program here } andiamo ad aggiungere le seguenti righe:


clrscr();

writeln('La costante da me dichiarata con il nome MiaCostante ha un valore di:', MiaCostante);

PrimaVariabile := 'A';
SecondaVariabile := 3;
TerzaVariabile := 3.3;
QuartaVariabile := TerzaVariabile + 1;
QuintaVariabile := 'Ecco a cosa servono le variabili!';
 
writeln('PrimaVariabile: ', PrimaVariabile);
writeln('SecondaVariabile: ', SecondaVariabile);
writeln('TerzaVariabile: ', TerzaVariabile);
writeln('QuartaVariabile: ', QuartaVariabile);
writeln('QuintaVariabile: ', QuintaVariabile);
writeln('La costante da me dichiarata con il nome MiaCostante ha un valore di:', MiaCostante);

PrimaVariabile := 'B';
SecondaVariabile := SecondaVariabile + 2;
TerzaVariabile := 3.3 + 1;
QuartaVariabile := TerzaVariabile + 1;
QuintaVariabile := 'Ecco a cosa servono le variabili! Fine';

writeln('PrimaVariabile: ', PrimaVariabile);
writeln('SecondaVariabile: ', SecondaVariabile);
writeln('TerzaVariabile: ', TerzaVariabile);
writeln('QuartaVariabile: ', QuartaVariabile);
writeln('QuintaVariabile: ', QuintaVariabile);

repeat until keypressed;



e sopra dove troviamo scritto:

var
  ErrorMsg: String;

 

lo modifichiamo in modo che risulti così:


var
  ErrorMsg: String;
  PrimaVariabile: char;
  SecondaVariabile: integer;
  TerzaVariabile, QuartaVariabile: real;
  QuintaVariabile: string;

const
  MiaCostante = 5;


Ora analizziamo quello che abbiamo appena fatto. Prendiamo in esame l'ultima modifica effettuata, var è una parola riservata che sta a significare che voglio dichiarare delle variabili o delle costanti. Dichiarare vuol dire che si decide che tipo di contenuto può possedere la variabile in questione, se numerica intera, numerica decimale, alfanumerica, stringa, o altro.

Consideriamo solo le variabili che abbiamo aggiunto noi, la prima si chiama PrimaVariabile ed è definita come char, ovvero può contenere caratteri. La seconda si chiama SecondaVariabile ed è definita integer, ovvero un tipo numerico intero come il 5 o 8 ma non ad esempio 4,5 o 4.3. La TerzaVariabile e la QuartaVariabile sono di tipo real ovvero numerico con la virgola. Mentre la QuintaVariabile è di tipo string ovvero può contenere una lettera come una parola o una frase alfanumerica. E poi per ultima la costante MiaCostante, che avrà il valore 5 per tutta la vita del programma. Ora vediamo in pratica come si differenzia una variabile da una costante. Come si può notare nella prima parte di codice che abbiamo modificato in questo programma abbiamo assegnato dei valori alle variabili e poi le abbiamo stampate a video, e poi nuovamente rivalorizzate e successivamente ristampate. Se il lettore si prendesse la briga di provare a riassegnare un valore alla costante noterebbe che in fase di compilazione del programma si otterrebbe un errore, perchè una costante non può essere rivalorizzata dopo essere stata dichiarata. Compilando attraverso il solito pulsantino che contiene un triangolino verde saremo in grado di vedere il risultato del nostro articolo.

I tipi principali delle variabili disponibili nel linguaggio free pascal sono: integer, shortint, smallint, longint, longword, int64, byte, word, cardinal, qword, boolean, bytebool, longbool, char.

Per quanto riguarda i tipi numerici li possiamo così classificare:

Tipo	Range	Dimensione in bytes
Byte	0..255	1
Shortint	-128..127	1
Smallint	-32768..32767	2
Word	0..65535	2
Integer	o Smallint o Longint	2 o 4
Cardinal	Longword	4
Longint	-2147483648 .. 2147483647	4
Longword	0..4294967295	4
Int64	-9223372036854775808 .. 9223372036854775807	8
QWord	0 .. 18446744073709551615	8

Per quanto riguarda il tipo integer che può variare da smallint a longint è il freepascal a fare la conversione automatica del tipo in base al contenuto stesso della varibile.

Oltre ai tipi interi esistono anche i tipi booleani ovvero variabili che contengono i valori TRUE e FALSE (VERO o FALSO).

Nome	Dimensione in bytes	Valore TRUE/VERO
Boolean	1	1
ByteBool	1	Qualsiasi valore diverso da zero
WordBool	2	Qualsiasi valore diverso da zero
LongBool	4	Qualsiasi valore diverso da zero

Free pascal e quindi anche lazarus visto che si basa su questo linguaggio comprende anche il tipo Char che è esattamente un byte di dimensione e contiene uno dei caratteri ASCII. Una costante di tipo carattere quando verrà dichiarata avrà il valore tra virgolette ad esempio 'A'. Un carattere può anche essere specificato dal suo codice ASCII facendolo precedere dal carattere #. Ad esempio #65 equivale ad 'A'.

Oltre il tipo Char esiste anche il tipo String che che è definito come in Turbo Pascal ovvero una sequenza di caratteri, con una specifica dimensione facoltativa. Essa sostiene inoltre anche AnsiString con lunghezza illimitata come in Delphi.

Il tipo string va da 1 carattere a 255 e viene dichiarato nel seguente modo:

NomeVariabile: string[50];

In questa maniera abbiamo dichiarato una variabile di nome NomeVariabile che può contenere 50 caratteri, ovvero una stringa di 50 caratteri. Mentre le variabili dichiarate come AnsiString sono quelle che terminano con null e vengono gestiti tramite puntatori dal linguaggio, ma del tutto trasparenti al'utente programmatore. Facciamo un esempio se dichiaro la variabile

NomeVariabile: AnsiString;

ottengo una variabile potenzialmente infinita (può essere grande tanto quanto la memoria messa a disposizione dalla macchina su cui gira il programma). Facciamo un confronto, se dichiaro una stringa non ansi come ho fatto precedentemente allora se andando avanti nell'esecuzione del programma necessito di memorizzare nella variabile una stringa di 51 caratteri non posso farlo e il programma va in errore in fase di compilazione (o meglio segnala che c'è un errore ma il programma viene realizzato ma tronca la stringa a 10 caratteri), nel secondo caso no.

Facciamo un esempio pratico creando una nuova console application e modificandola in modo che sia così:

program project1;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
{$ENDIF}{$ENDIF}
  Classes, SysUtils, CustApp, Crt
  { you can add units after this };

type
  {TMyApplication }
  TMyApplication = class(TCustomApplication)
  protected
  procedure DoRun; override;
  public
  constructor Create(TheOwner: TComponent); override;
  destructor Destroy; override;
  procedure WriteHelp; virtual;
  end;

{TMyApplication }

procedure TMyApplication.DoRun;
var
  ErrorMsg: String;
  PrimaVariabile: string[10];
  SecondaVariabile: AnsiString;
begin
  // quick check parameters
  ErrorMsg:=CheckOptions('h','help');
  if ErrorMsg'' then
  begin
    ShowException(Exception.Create(ErrorMsg));
    Halt;
  end;
 
  // parse parameters
  if HasOption('h','help') then
  begin
    WriteHelp;
    Halt;
  end;

  { add your program here }
  clrscr();
  PrimaVariabile:='sono 10 lettere mie';
  SecondaVariabile:='sono 10 lettere';
  writeln(PrimaVariabile);
  writeln(SecondaVariabile);
  repeat until keypressed;
  // stop program loop
  Terminate;
end;

constructor TMyApplication.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);
  StopOnException:=True;
end;

destructor TMyApplication.Destroy;
begin
  inherited Destroy;
end;

procedure TMyApplication.WriteHelp;
begin
  { add your help code here }
  writeln('Usage: ',ExeName,' -h');
end;


var
  Application: TMyApplication;

{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}


begin
  Application:=TMyApplication.Create(nil);
  Application.Title:='My Application';
  Application.Run;
  Application.Free;
end.




Se compilate oltre a vedere il risultato vedrete che viene riportato un errore in fase di compilazione dovuta al fatto che la stringa contenuta in PrimaVariabile contiene più caratteri di quelli consentiti.

Free pascal supporta anche l'implementazione delphi Pchar che è definito come un puntatore ad un tipo Char. Può essere paragonato ad una stringa che termina con il null, vale a dire che il Pchar è un puntatore ad un array di tipo char che termina con il
carattere null. Free pascal permette l'inizializzazione delle variabile di tipo Pchar sotto forma di costanti o tramite inizializzazine dirette. Ad esempio dichiariamo in una nuova console application la seguente variabile nella parte dichiarativa del programma:


var
  PrimaVariabile: Pchar;


poi nella parte esecutiva del codice dove troviamo il commento { add your program here } digitiamo


PrimaVariabile:='Questa stringa termina con il null';
writeln(PrimaVariabile);
repeat
until keypressed;


salviamo ed eseguiamo il codice e avremo come risultato la scritta: Questa stringa termina con il null.

Ora apriamo una nuova console application e nella parte dichiarativa scriviamo:

const
  SecondaVariabile: Pchar =  'Questa stringa termina con il null';


e nella parte esecutiva scriviamo:

writeln(PrimaVariabile);
repeat
until keypressed;

se salviamo ed eseguiamo il programma allora noteremo che avremo lo stesso risultato del programma precedente.

N.B. Le variabili possono essere suddivise in due macrocategorie: variabili globali e variabili locali. Le variabili globali sono dichiarate nella sezione dichiarativa del programma principale. Hanno visibilità e "vita" per tutta la durata del programma e in tutte le procedure. Le variabili locali sono dichiarate nella sezione dichiarativa di una procedura/funzione.
Hanno visibilità e "vita" solo all'interno della procedura in cui sono state dichiarate.

N.B. Tutti i real vengono visualizzati in notazione scientifica, che non sempre è bella da vedere o utile ai fini della visualizzazione. Per ovviare a questo problema basta specificare quante cifre avrà la parte decimale. La sintassi per fare questo è:

NomeVariabile:NumeroCifreTotali:NumeroCifreDecimali.

In questo caso  writeln('Esempio real: 'MiaVariabile:6:2) avremo come risultato un valore di 6 cifre di cui 2 sono decimali, ovviamente la MiaVariabile doveva essere dichiarata real.