Vervollständigung von Klassen

[DevilsCamp]

In Delphi 7 gibt es dieses nette Feature der Klassenvervollständigung mit STRG-Shift-C.

Leider scheint es da einen Bug zu geben:

Ich habe folgenden Code:

Delphi-Quellcode:

type
  TKlasse = class
  private
    FWert : Integer;

    function FGetInteger: Integer;
    
    procedure FSetInteger(const Value: Integer);
  public
    constructor Create; reintroduce;
  published
    property Wert: Integer read FGetInteger write FSetInteger default 0;
  end;

mit den Methoden:

Delphi-Quellcode:

constructor TKlasse.Create;
begin
  inherited;
  
  FWert := 0;
end;

function TKlasse.FGetInteger: Integer;
begin
  Result := FWert;
end;

procedure TKlasse.FSetInteger(const Value: Integer);
begin
  FWert := Value;
end;

Wenn ich nun in die Klasse erweitere und dann STRG-Shift-C drücke um die Methodenrümpfe automatisch erzeugen zu lassen, dann erhalte ich im private-Abschnitt folgendes:

Delphi-Quellcode:

  private
    FWert : Integer;
    FGetInteger: Integer;   // <---- diese Zeile fügt Delphi hinzu. Und entsprechend für jede weitere Property, bei der ich eine Get-Methode benutze

    function FGetInteger: Integer;
    
    procedure FSetInteger(const Value: Integer);

Kann man das irgendwo umstellen, dass Delphi automatisch VARIABLEN erstellt anstatt METHODEN?