Italian community of Lazarus and Free Pascal

Portal features

Pagine: 1 ... 8 9 [10] 11 12 ... 14

05 Dic 2011 - Proprietà

Written by Microges2000 Dicembre 05, 2011, 04:28:00 pm 18437 Views Rating: 0 (0 Rates) Print

Proprietà

vediamo cosa sono e come vengono gestite.....

Read More

05 Dic 2011 - Funzioni a parametri variabili

Written by Microges2000 Dicembre 05, 2011, 03:31:00 pm 18604 Views Rating: 0 (0 Rates) Print

A volte è utile impostare alcuni parametri di default nelle chiamate a funzioni per semplificare la vita di chi scrive o, a volte, per facilitare l'aggiunta di parametri senza sconvolgere il programma ritoccando tutte le chiamate.
Un esempio lampante è la funzione INC (o DEC che sia) che non fa altro che incrementare una variabile passsata di una quantità che, nel caso non sia passata, viene posta automaticamente ad 1

Quandi chiamara INC(Variabile) o INC(Variabile, 1) è la stessa cosa.

Per implementare questa chiamata basta usare il token = dopo il tipo della variabile.

Quindi, ritornando alla funzione Inc, potremmo scrivere:

Codice: [Seleziona]

Procedure MyInc(Var Valore : Integer; Quantita : Integer = 1);

Questa assegnazione fa in modo che se chiamiamo MyInc omettendo il parametro Quantità esso viene posto automaticamente ad 1

Facile No?

05 Dic 2011 - Overload di funzioni

Written by Microges2000 Dicembre 05, 2011, 03:29:00 pm 18542 Views Rating: 0 (0 Rates) Print

A volte puo' essere utile utilizzare un medesimo nome per una funzione anche se i parametri passati sono differenti
Per esempio se si vuole incrementare una variabile Integer o extended o, perchè no, stringa possiamo scrivere:

Codice: [Seleziona]

Procedure MyInc(Var Variabile : Integer; Quantita : Integer); Overload;
Procedure MyInc(Var Variabile : Extended; Quantita : Extended); Overload;
Procedure Myinc(Var Variabile : String; Quantita : String); Overload;

e, nella sezione implementation, sviluppiamo le funzioni:

Codice: [Seleziona]

Procedure MyInc(Var Variabile : Integer; Quantita : Integer); 
Begin
  Result := Variabile + Quantita;
End;

Procedure MyInc(Var Variabile : Extended; Quantita : Extended); 
Begin
  Result := Variabile + Quantita;
End;

Procedure Myinc(Var Variabile : String; Quantita : String); 
Begin
  Result := Variabile + Quantita;
End;

Ora, a seconda del tipo che richiama la funzione, il compilatore assegnerà quella giusta e, quindi, si puo' scrivere:

Codice: [Seleziona]


Var
  A : Integer;
  B : Extended;
  C : String;
Begin
  A := 10;
  B := 11.121;
  C := 'Ciao';
  
  MyInc(A, 1);
  MyInc(B, 1.2);
  MyInc(C, ' mondo');
  
  ............................
   A questo punto avremo
     A = 11;
     B = 12.321;
     C = 'Ciao mondo';
  ............................
End;

Tenete presente che comanda il tipo e quindi le dichiarazioni

Codice: [Seleziona]

Procedure MyInc(Var Valore : Integer; Quantita : Integer); Overload;
Procedure MyInc(Var Pippo : Integer; Quantita : Integer); Overload;

non sono valide in quanto i tipi sono identici; non sono valide neanche le dichiarazioni con tipi non assegnati:

Codice: [Seleziona]

Procedure MyInc(Var Valore : Integer; Quantita : Integer); Overload;
Procedure MyInc(Var Pippo; Quantita : Integer); Overload;

02 Dic 2011 - Liste e puntatori

Written by Microges2000 Dicembre 02, 2011, 10:54:00 am 19111 Views Rating: 0 (0 Rates) Print

Nel tutorial "I puntatori" (http://www.lazaruspascal.it/index.php?page=34) si è visto come si lavora con i puntatori per gestire delle liste con elementi collegati tra di loro.....

Lazarus (ed anche Delphi) ci vengono in aiuto per semplificarci la vita.

Read More

01 Dic 2011 - Conferma di chiusura di un applicazione

Written by xinyiman Dicembre 01, 2011, 01:14:00 pm 19039 Views Rating: 0 (0 Rates) Print

A volte si necessita di intercettare la chiusura della propria applicazione, per chiedere se si è sicuri di voler davvero chiudere tale applicazione.

Bene, con Lazarus questo è semplicissimo. Per prima cosa bisogna andare sulla Form su cui vogliamo attuare i nostri intenti, ipotiziamo che sia la Form1.

Andiamo nell'ispettore di oggetti della Form1 e nella sezione eventi andiamo a cliccare sull'evento OnCloseQuery e inseriamo il codice come compare nell'esempio qui sotto:

Codice: [Seleziona]


procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
     if MessageDlg('CHIUSURA', 'Sei sicuro/a di voler abbandonare il programma?', mtConfirmation, [mbYes, mbNo],0) = mrNo then
        CanClose := False; {interrompe la chiusura dell'applicazione}
end;

Bene come avete appena visto è davvero semplicissimo. Buona programmazione!

Pagine: 1 ... 8 9 [10] 11 12 ... 14

Italian community of Lazarus and Free Pascal

News:

05 Dic 2011 - Proprietà

05 Dic 2011 - Funzioni a parametri variabili

05 Dic 2011 - Overload di funzioni

02 Dic 2011 - Liste e puntatori

01 Dic 2011 - Conferma di chiusura di un applicazione