Zugriff auf Klasseneigenschaften -- Verstehe die Fehlermledung nicht

[Jazzman_Marburg]

Hallo Gemeinde.
Ich baue mir gerade ein Singleton, was auch prima klappt solange ich in den Properties nur auf Klassenvariablen zugreife, aber folgende Konstruktion führt zu einem Fehler:

Delphi-Quellcode:

TYPE
  TDP = CLASS
  PRIVATE
    CLASS VAR
            _instance    : TDP;
            FXMLFileName : STRING;

  PUBLIC
    DESTRUCTOR Destroy; Override;

    CLASS FUNCTION Instance : TDP;
    CLASS FUNCTION NewInstance: TObject; Override;

    CLASS PROCEDURE NewXMLFileName(aFilename: String);

    CLASS PROPERTY XMLFileName : STRING READ FXMLFileName WRITE NewXMLFileName; // Fehler!
  END;

Die Fehlermeldung:
E2355 Für den Zugriff auf Klasseneigenschaften muss ein Klassenfeld oder eine statische Klassenmethode verwendet werden.

Wenn ich stattdessen:
CLASS PROPERTY XMLFileName : STRING READ FXMLFileName WRITE FXMLFileName; schreibe, ist es ok. Ich wollte aber gern eine Klassenmethode aufrufen.

Jemand eine Idee, was ich falsch mache?

Vielen Dank & Gruß
Jazzman

[jaenicke]

Hinter deinen Klassenmethoden fehlt das Schlüsselwort static.

Nebenbei würde ich mir mal einen Styleguide anschauen, der Quelltext sieht ja aus...

// EDIT:

Delphi-Quellcode:

type
  TDP = class
  private
  class var
    FInstance: TDP;
    FXMLFileName: string;
  public
    destructor Destroy; override;

    class function Instance: TDP;
    class function NewInstance: TObject; override;

    class procedure SetXMLFileName(const AFilename: string); static;

    class property XMLFileName: string read FXMLFileName write SetXMLFileName;
  end;

[himitsu]

Die Ursache ist wohl einfach nur, daß solche Klasseneigenschaften, aus irgendwelchen unerfindlichen Gründen, keine "Vererbung" unterstützen.
Darum auch nur direkte Klassenvariablen oder statische Klassenmethoden.

Also im Grunde hatte dir doch die Fehlermeldung ja genau gesagt, was somit nötig wäre.

Die Aufrufkonventionen zwischen eine Klassenmethode und einer statischen Klassenmethode sind halt ein bissl unterschiedlich.
Denn statische Klassenmethoden besitzen kein Self.

Bei den sonstigen Methoden wird über Self der Klassentyp mitgegeben, über welchen die Methode aufgerufen wurde.
(bei "normalen" Methoden steckt in Self natürlich die Objekt-Instanz)

Delphi-Quellcode:

TForm1 = class(TForm)
  class procedure ClassMethod(i: Integer);
  class procedure StaticClassMethod(i: Integer); static;
  class procedure VirtualClassMethod(i: Integer); virtual;
end;


ClassMethod(123);
StaticClassMethod(456);
VirtualClassMethod(789);


Unit1.pas.37: ClassMethod(123);
004A0ECF BA7B000000       mov edx,$0000007b
004A0ED4 8B03             mov eax,[ebx]
004A0ED6 E8E9FFFFFF       call TForm1.ClassMethod

Unit1.pas.38: StaticClassMethod(456);
004A0EDB B8C8010000       mov eax,$000001c8
004A0EE0 E80F000000       call TForm1.StaticClassMethod

Unit1.pas.39: VirtualClassMethod(789);
004A0EE5 BA15030000       mov edx,$00000315
004A0EEA 8B03             mov eax,[ebx]
004A0EEC FF9018010000     call dword ptr [eax+$00000118]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    class procedure ClassMethod(i: Integer);
    class procedure StaticClassMethod(i: Integer); static;
  end;

  TFormX = class(TForm1)
  end;

class procedure TForm1.ClassMethod(i: Integer);
begin
  ShowMessage(Format('%s %s %d', [Self.ClassName, ClassName, i]));
end;

class procedure TForm1.StaticClassMethod(i: Integer);
begin
  ShowMessage(Format('%s %d', [ClassName, i]));
end;

TFormX.ClassMethod(123);
TFormX.StaticClassMethod(456);

// TFormX TFormX 123
// TForm1 456

[Jazzman_Marburg]

Zitat von jaenicke:

Hinter deinen Klassenmethoden fehlt das Schlüsselwort static.

Vielen Dank!

Zitat von himitsu:

Die Ursache ist wohl einfach nur, daß solche Klasseneigenschaften, aus irgendwelchen unerfindlichen Gründen, keine "Vererbung" unterstützen.
Darum auch nur direkte Klassenvariablen oder statische Klassenmethoden.

Juup, das hilft!

Zitat von jaenicke:

Nebenbei würde ich mir mal einen Styleguide anschauen, der Quelltext sieht ja aus...

Ooch, soo übel sieht das garnicht aus -- habe mir halt die Großschreibung angewöhnt und werd sie nicht mehr los.

Aber Danke auch für diesen Hinweis.

Schönen Abend an alle!

Gruß
Jazzman

[jaenicke]

Ich meinte nicht nur die Groß- und Kleinschreibung.

Unterstriche in Bezeichnern (_instance) sind nicht üblich und Getter und Setter sollten auch so heißen, nämlich mit Get und Set anfangen.

Besonders letzteres ist wichtig, da du sonst die Klassenvervollständigung von Delphi durcheinanderbringst. (Und man den Code nebenbei auch kaum versteht.)

[Jazzman_Marburg]

Zitat von jaenicke:

Ich meinte nicht nur die Groß- und Kleinschreibung.

Puuh.

Zitat von jaenicke:

Unterstriche in Bezeichnern (_instance) sind nicht üblich

100% korrekt - ist Mist.

Zitat von jaenicke:

...und Getter und Setter sollten auch so heißen, nämlich mit Get und Set anfangen.

Ebenso.

Zitat von jaenicke:

...die Klassenvervollständigung von Delphi durcheinanderbringst...

Delphi XE Starter -- da gibt es so einen Luxus nicht. Man war hier der Meinung, Hobby-Programmierer benötigten sowas nicht (in etwa so, als wenn selten-Autofahrer kein ABS benötigen, das ist nur etwas für Profis ).

Lieben Dank für die Kommentare!

Gruß
Jazzman

[himitsu]

Sagen wir es mal so: Hauptsache es ist überhaupt ein einheitlicher Style vorhanden ... also dem her wäre es eigentlich noch vollkommen OK.

STRING oder String?

[Jazzman_Marburg]

Zitat von himitsu:

... also dem her wäre es eigentlich noch vollkommen OK.

Ich finde auch.

Danke & Gruß
Jazzman

[jaenicke]

Ich habe ja auch geschrieben sollte, nicht muss.

Wenn ich solchen Quelltext bekomme, schicke ich den ohnehin erst einmal durch den Formatter. ich finde es nur schöner, wenn das nicht nötig ist, aber leider ist der VCL- und RTL-Quelltext selbst nicht ganz sauber...

[Jazzman_Marburg]

Zitat von jaenicke:

Wenn ich solchen Quelltext bekomme, schicke ich den ohnehin erst einmal durch den Formatter. ich finde es nur schöner, wenn das nicht nötig ist, aber leider ist der VCL- und RTL-Quelltext selbst nicht ganz sauber...

Hmmm... also jetzt bin aber doch mal neugierig: Wir sieht denn mein Coding (s.o.) aus, nach dem der Formatter seine Arbeit erledigt hat aus? (Kenne den "Formatter" nicht).

Bis auf die bereits eingestandene Groß/Kleinschreibung und die Set/Get-Namensgebung sehe ich nicht, was der Formatter denn da großartig korrigieren wird.

Übrigens die _instance Schreibweise (_ Unterstrich) scheint bei Singletons ganz üblich zu sein http://vcldeveloper.com/tips-tricks/...ern-in-delphi/.

Gruß, Jazzman