Hallo zusammen!

Ich erhalte bei folgendem simplen Konstrukt einen Compilerfehler:

zusammenfalten · markieren

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.

zusammenfalten · markieren

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.

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.

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

Zitat von mkinzler:

Bei AData fehlt der Typ

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

markieren

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);

 ...

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?

Zitat:

markieren

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.