Refactoring-Funktion für Encapsulation?

[DeddyH]

Folgender Quelltext - handgeschrieben:

Delphi-Quellcode:

  TMyClass = class
  public
    property Wuppdi: integer read GetWuppdi write SetWuppdi;
  end;

Dann STRG-SHIFT-C drücken, Ergebnis:

Delphi-Quellcode:

  TMyClass = class
  private
    function GetWuppdi: integer;
    procedure SetWuppdi(const Value: integer);
  published
  public
    property Wuppdi: integer read GetWuppdi write SetWuppdi;
  end;

...

implementation

...

function TMyClass.GetWuppdi: integer;
begin

end;

procedure TMyClass.SetWuppdi(const Value: integer);
begin

end;