W1009: Redeklaration verbirgt ein Mitglied in der Basisklasse

[hoika]

Hallo,

nehme ich einen Adapter, muss ich sämtliche Methoden dort noch einmal definieren.
Es handelt sich hier übrigens um QuickPDF die haben ein "paar" Methoden.

Das in FontName kein Integer gespeichert werden soll, ist schon klar,
kann ich aber nicht ändern.

Im Code steht XX.FontName:= 1;

Dieses XX (die alte Druck-Komponente) will ich jetzt über QuickPDF nachbauen.

type
Sub = class(TQuickPDF)
end;

Dummerweise hat das TQuickDF ebenfalls ein FontName, der AnsiString ist.



Heiko

[Uwe Raabe]

Geht's auf diese Art?

Delphi-Quellcode:

type
  TBase = class
  private
    FFontName: string;
  public
    property FontName: string read FFontName write FFontName;
  end;

  TDerived = class(TBase)
  private
    function FontNameFromIndex(Value: Integer): string;
    function GetFontName: Integer;
    function GetIndexOfFontName(const Value: string): Integer;
    procedure SetFontName(const Value: Integer);
  public
    property FontName: Integer read GetFontName write SetFontName;
  end;

function TDerived.FontNameFromIndex(Value: Integer): string;
begin
  Result := '';
  { TODO : mapping Index -> FontName }
end;

function TDerived.GetFontName: Integer;
begin
  Result := GetIndexOfFontName(inherited FontName);
end;

function TDerived.GetIndexOfFontName(const Value: string): Integer;
begin
  Result := -1;
  { TODO : mapping FontName -> index }
end;

procedure TDerived.SetFontName(const Value: Integer);
begin
  inherited FontName := FontNameFromIndex(Value);
end;

[hoika]

Hallo,

kann ich gerade nicht prüfen,
weil ZU HAUSE

Aber ich denke, die Warnung wird immer noch erzeugt.

Ich hatte ja eher nach sowas wie reintroduce für Properties gesucht.


Heiko