In folgendem kleinen Demo-Projekt bekomme ich folgende
Exception:
Zitat:
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Projekt Project1.exe traf auf die unhandelte
Exception-Klasse System.NullReferenceException mit der Meldung 'Der Typ muss als abstrakt deklariert werden, wenn eine der Methoden als abstrakt deklariert ist.'.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------
Delphi-Quellcode:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
TAbstraktClass = class
private
public
class function GetValue: Integer; virtual; abstract;
end;
TRealClass = class(TAbstraktClass)
private
public
class function GetValue: Integer; override;
end;
{ TRealClass }
class function TRealClass.GetValue: Integer;
begin
Result := 15;
end;
begin
Writeln(TRealClass.GetValue.toString);
end.
Was will mir diese Fehlermeldung sagen, was ich anders machen soll?