la programmazione orientata agli oggetti - itis magistri cumacini

12
UN ESEMPIO APPLICATIVO
album
TPunto
TCerchio
type
TNumFigure=1..5;
TFigure = OBJECT
elenco=array[TNumFigure] of TPuntoPtr;
procedure crea;
procedure inserisci(posizione:TNumFigure;figura:TPuntoPtr);
procedure visualizzaTutto;
...
END;
var
album : TFigure;
procedure TFigure.crea;
var i:TNumFigure;
begin
for i:= 1 to High(TNumFigure) do
elenco[i]:= NIL;
end;
procedure TFigure.inserisci(posizione:TNumFigure;figura:TPuntoPtr);
begin
elenco[posizione]:= figura;
end;
procedure TFigure.visualizzaTutto;
var i:TNumFigure;
begin
for i:= 1 to High(TNumFigure) do
if (elenco[i] NIL) then
elenco[i]^.disegna;
end;
BEGIN
...
album.crea;
album.inserisci(1,new(TPuntoPtr, crea(50,50,green)));
album.inserisci(2,new(TCerchioPtr, crea(50,50,25,red)));
...
album.visualizzaTutto;
END.