Newsgroup: it.comp.lang.pascal
Titolo: Units in TP7

C'è qualcuno che può spiegarmi velocemente come si fanno le Units!
Grazie

Grazie
Allora, per quello che ne so io una unit si fa cosě:
unit [nomeunit];
interface
 
   (* tra interface e implementation devi mettere SOLO la  
   dichiarazione delle procedure, ti faccio   
   un esempio *)
   function fattoriale(x:integer):real;
 
implementation
 
   uses [nomediqualcheunitsetiserveperle procedure8-)]
 
   (*dopo implementation vanno messe effettivamente le procedure*)
 
   function fattoriale(x:integer):real;
   begin
       if x=0 then fattoriale:=1 
       else
       fattoriale:=x*fattoriale(x-1);
   end;
end.
(* ad esempio questa unit ti permette di usare la function fattoriale
senza doverla sempre riscrivere *)
Spero di esserti stato utile...
Ciao e 73-51 de Tartaruga .
.oO-=> TARTARUGA (* Gabriele *) <=-Oo.
     E-Mail: 
ru...@ita.flashnet.it
http://www.geocities.com/SiliconValley/Peaks/4731/

   un esempio *)
Scusa, ma dipende da quello che devi fare.
Infatti si possono aggiungere anche variabili costanti  etc. che saranno poi
viste da
tutti come se fossero le loro. ATTENZIONE !    :))
BYE

Grazie
E' piuttosto semplice consulta il Manuale dell'Utente della Borland.
Se non ce l'hai:
Le units servono a semplificare e rendere modulare e riutilizzabile la
programmazione.
La struttura di una unit č la seguente:
UNIT <nome>
INTERFACE
USES <lista di units>  [opzionale]
  (dichiarazione pubbliche) 
  (tutte le variabili, costanti, funzioni, procedure che scrivi qui
sono accessibili dall'esterno)
  (solo testata delle funz e proc.)
IMPLEMENTATION
USES <lista di units>  [opzionale]
 (dichiarazione private) 
 (tutto quello che scrivi  qui non č accessibile dall'esterno)
  (anche corpo delle funz e proc.)
END.
ciao Lauro

BYE


Grazie
Allora ecco come si presenta una UNIT:
UNIT <nome unit>
 
     INTERFACE
	uses ...
 
	const...
	type...
	var...
 
	procedure...
	function...
    IMPLEMENTATION
	uses...
	label...
	const...
	type...
	var...
	procedure...
	function...		
END.  (fine unita')
 
Leggendo tral le righe...
Devi iniziare con l' intestazione  UNIT <nome unit>
subito dopo  scrivi   INTERFACE.
Cio' significa che tutto quello che scriverai dopo
(procedure,tipi,variabili) fino a IMPLEMENTATION deve essere condiviso
con il mondo esterno (chiamanti della UNIT).
Quindi finita la parte dichiarativa scrivi
	IMPLEMENTATION
questa parte e' il corpo della UNIT dove scrivi i vari BODY delle
PROCEDURE/FUNCTION dichiarate nella parte INTERFACE.
Piccolo trucco: non c'e' bisgno di ripetere i valori di scambio delle
procedure (che invece avrai fatto nella parte INTERFACE)  bensi solo
il nome della procedura.
Alla fine un bel  END. (fine UNIT) 
Esempio:
--------------------------------
UNIT  matematica;
INTERFACE
procedure somma(a,b:integer;VAR ris:integer);
procedure sottrazione(a,b:integer;VAR ris:integer);
procedure moltiplicazione(a,b:integer;VAR ris:integer);
procedure divisione(a,b:integer;VAR ris:integer);
function numero_primo(a:integer):boolean;
IMPLEMENTATION
(come detto sopra puoi glissare i parametri della procedure)
procedure somma;
begin
	ris:=a+b
end;
procedure sottrazione;
begin
           ...........
end;
procedure divisione;
begin
           ...........
end;
procedure moltiplicazione;
begin
           ...........
end;
function numero_primo;
begin
           ...........
end;
END.
Per ulteriori INFO contattami in MAILBOX
md3...@mclink.it
CIAO.