set-und get Methode

[DeddyH]

Delphi-Quellcode:

type
  TWuppdi = class
  private
    FEigenschaft: string;
    function GetEigenschaft: string;
    procedure SetEigenschaft(const Value: string);
  public
    property Eigenschaft: string read GetEigenschaft write SetEigenschaft;
  end;

function TWuppdi.GetEigenschaft: string;
begin
  Result := FEigenschaft;
end;

procedure TWuppdi.SetEigenschaft(const Value: string);
begin
  FEigenschaft := Value;
end;