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

[Stevie]

Zitat von Jazzman_Marburg:

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

Dazu fällt mir ein Zitat ein: "I like my source code yelling at me!"

[himitsu]

Der Codeformatter fehlt wohl im XE Starter? (bin mir grad nicht so sicher)

Strg+D

Standardmäßig dürfte es wohl so aussehn, aber man kann die Formatter meißt noch an seine Wünsche anpassen.

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;

Es gibt aber auch externe Delphi Code Formatter


[edit]
och menno, das Bild wird hier ja automatisch bis zur Unkenntlichkeit verkleinert



Und ja, ich hab auch meinen ganz privaten "Schreibstil" und leider noch keinen Code Formatter gefunden, welcher diesen so schön hinbekommt

Hier müßte ja eigentlich noch der "class var"-Block eingerückt werden, aber leider hat man sowas vergessen zu implementieren (und sowas auch noch vom Verfasser der Syntax )