"Fehler" bei Überschreiben von Properties

[igel457]

Also ich mache das normalerweise so:

Delphi-Quellcode:

type
  TA=class
  protected
    FFoo: Integer;
    function GetFoo: Integer;virtual;
    procedure SetFoo(AFoo: Integer);virtual;  
  public
    property Foo: Integer read GetFoo write SetFoo;
  end;

  TB=class(TA)
  protected
    procedure SetFoo(AFoo: Integer);override;
    function GetFoo: Integer;override;
  public
  end;

implementation

procedure TA.SetFoo(AFoo: Integer);
begin
  FFoo := AFoo;
end;

procedure TA.SetFoo(AFoo: Integer);
begin
  Result := FFoo;
end;

procedure TB.SetFoo(AFoo: Integer);
begin
  FFoo := AFoo;
  ShowMessage('BLA');
end;

procedure TB.SetFoo(AFoo: Integer);
begin
  Result := FFoo div 2;
end;

[edit]Ausversehen auf Absenden gekommen...[/edit]
[edit]Noch einen Fehler gefunden[/edit]