Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Se usi una classe oggetto, dovresti creare un metodo pubblico che mandi a schermo la variabile (principio della programmazione ad oggetti), quindi il programma sarebbe stato meglio cosė:
Codice sorgente - presumibilmente Delphi
Program ShowNumber;
Type Numero =Object
Private
num :Integer;
Public
Constructor Make;
Destructor Smash;
Procedure Show;
Procedure Add_500;
End;
Var number : Numero;
Constructor number.Make;
Begin
num :=0;
End;
Destructor number.Smash;
Begin
(* Total Destroy!!! *)
End;
Procedure number.Show;
Begin
WriteLn('Valore numero => ", num);
End;
Procedure number.Add_500;
Begin
num := 500;
End;
Begin
number.Make;
number.Show;
number.Add_500;
number.Show;
number.Smash;
ReadLn;
End.
()
Newbie
Messaggi: Iscritto:
Postato alle 10:57
Giovedė, 31/12/2009
Vi ringrazio molto per la vostra attenzione!
E' vero . Da un punto di vista logico i vostri suggerimenti funzionano!!
Ma avete provato a eseguire il mip programma in Turbo Pascal 7 o Dev Pascal 1.9 ?
Vi ripeto che a me non fa una grinza!
Ultima modifica effettuata da il 31/12/2009 alle 11:11