Delphi-Quellcode:
class function TObject.ClassName: string;
begin
Result := UTF8ToString(_PShortStr(PPointer(PByte(Self) + vmtClassName)^)^);
end;
Hast offensichtlich recht! ... Das wiederspricht gerade meiner
Auffassung davon, wie class function gedacht sind ...
Ich hätte behauptet, sowas müsse als "normale" Funktion deklariert werden!
Also wieder zurück in den Grundkurs "wozu class function?"!
Edit: Gerade herausgefunden: "Self" ist bei einer class function die Klasse und nicht die Instanz.
... Weltordnung größtenteils wieder hergestellt!
MfG Incocnito