Compilerfehler: E2137 Method not found in base class

[BlackSeven]

Hallo zusammen!

Ich erhalte bei folgendem simplen Konstrukt einen Compilerfehler:

Delphi-Quellcode:

unit uTest1;

interface

type

  TTestBase = class
  protected

    function DoRead(var AData; const ABytesToRead: Cardinal): Boolean; overload;
    function DoRead(var AData; const ABytesToRead: Cardinal; out ABytesRead: Cardinal): Boolean; overload; virtual;

  end;

implementation

function TTestBase.DoRead(var AData; const ABytesToRead: Cardinal): Boolean;
begin
  //
end;

function TTestBase.DoRead(var AData; const ABytesToRead: Cardinal; out ABytesRead: Cardinal): Boolean;
begin
  //
end;

end.

Delphi-Quellcode:

unit uTest2;

interface

uses

  uTest1;

type

  TTest = class(TTestBase)
  protected

    function DoRead(var AData; const ABytesToRead: Cardinal; out ABytesRead: Cardinal): Boolean; override; <--- hier

  end;
  
implementation

function TTest.DoRead(var AData; const ABytesToRead: Cardinal; out ABytesRead: Cardinal): Boolean;
begin
  //
end;

end.

Vieleicht kann mir jemand auf die Sprünge helfen.
Danke.

[mkinzler]

Bei AData fehlt der Typ. Die Signaturen der beiden Methoden scheint für den Compiler nicht eindeutig verschieden zu sein.
Ich würde den 4. Parameter als optionalen Defaultparameter implementieren.

[BlackSeven]

Danke. Wenn ich die beiden Klassen in derselben Unit definiere, funktioniert es.
Bin gerade dabei, die Klassen in getrennte Units auszulagern.

[BlackSeven]

Zitat von mkinzler:

Bei AData fehlt der Typ

Ist ein "Untyped Parameter". Schreibe gerade so etwas Ähnliches wie die TStream-Klasse.

Delphi-Quellcode:

 TStream = class(TObject)
 
    function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; overload; virtual;
    procedure ReadBuffer(var Buffer; Count: Longint);
    procedure WriteBuffer(const Buffer; Count: Longint);

 ...

[Ralf Kaiser]

In der zweiten Unit hast du die Methode mit "override" deklariert. In der ersten Unit ist in der Basisklasse die entsprechende Methode allerdings nicht "virtual", oder sehe ich das falsch?

[BlackSeven]

Zitat:

Delphi-Quellcode:

function DoRead(var AData; const ABytesToRead: Cardinal): Boolean; overload;
function DoRead(var AData; const ABytesToRead: Cardinal; out ABytesRead: Cardinal): Boolean; overload; virtual;

Das müsste passen. Nur die 2. Funktion soll überschrieben werden.