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.