Also TPerson bekommt anhand von Set-Prozeduren Werte zugeschrieben und durch Get-Funktionen werden sie abgerufen.
Delphi-Quellcode:
type
TPerson = class(TObject)
private
Name : string;
Groesse : real;
Alter : Integer;
public
constructor Create;
procedure SetName (n : string);
function GetName : string;
procedure SetGroesse (gr : real);
function GetGroesse : real;
procedure SetAlter (alt : Integer);
function GetAlter : Integer;