Kennt FPC denn kein
class abstract
?
PS: Notfalls kann man es (zumindestens in Delphi) auch einfach als Record anlegen.
Delphi-Quellcode:
Egypt = class abstract
class function Theben: TBuildLocation;
class function Luxor: TBuildLocation;
class function Karnak: TKarnak;
end;
Egypt = record
class function Theben: TBuildLocation;
class function Luxor: TBuildLocation;
class function Karnak: TKarnak;
end;
// eventuell die Methoden auch noch als static deklarieren
@Topic: zum Glück schreib ich zuwenige Kommentare, denn sonst wären meine Codes voll mit Gefluche und sonstigen Gotteslästerungen.