"Der linken Seite kann nichts zugwiesen werden."

[DeddyH]

Delphi-Quellcode:

type 
  TWuppdi = class
  private
    FFeld: TDatentyp;
    procedure Setter(const value: TDatentyp);
    function Getter: TDatentyp;
  public
    property Feld: TDatentyp read Getter write Setter;
  end;

procedure TWuppdi.Setter(const value: TDatentyp);
begin
  FFeld := value;
end;

function TWuppdi.Getter: TDatentyp;
begin
  Result := FFeld;
end;