class helper

[Helmi]

Zitat von DeddyH:

Interessanter Artikel dazu: http://stackoverflow.com/questions/2...-class-helpers, besonders der Beitrag von Uwe Raabe.

Danke für den Link - aber irgendwie bringt mich der nicht weiter (oder ich seh es nicht)

Dort sind im class helper "nur" procedures und functions deklariert - aber keine einfache Variable.

Wenn ich die Variable einfach so definiere:

Delphi-Quellcode:

  TListBoxHelper = class helper for TListBox
    private
      aktive_Datei: String;
   end;

gibts diesen Fehler:

Zitat:

[DCC Fehler] MainUnit.pas(40): E2169 Felddefinition nicht erlaubt nach Methoden oder Eigenschaften

bislang gehts nur so:

Delphi-Quellcode:

     class var
        aktive_Datei: String;
      end;

versteh ich grad etwas falsch?
(dummerweise ist die Delphi-Hilfe nicht wirklich eine Hilfe dabei)

[Uwe Raabe]

Class Helper können keine zusätzlichen Felder für Instanzen bereitstellen! Es sind lediglich Methoden erlaubt.

[Helmi]

Zitat von Uwe Raabe:

Class Helper können keine zusätzlichen Felder für Instanzen bereitstellen! Es sind lediglich Methoden erlaubt.

also dann ist class var die einzige Lösung für mein "Problem"?

[DeddyH]

In dem Fall muss man sich mit einer Cracker-Klasse behelfen, da geht das dann wieder.

Delphi-Quellcode:

uses Windows, SysUtils, {...,} StdCtrls;

type
  TListbox = class(StdCtrls.TListbox)
  private
    FAktive_Datei: string;
  public
    property Aktive_Datei: string read FAktive_Datei write FAktive_Datei;
  end;

  TDeinForm = class(TForm)
    DeineListbox: TListbox; //das ist dann die gerade definierte
    ...
  end;

[Helmi]

Zitat von DeddyH:

In dem Fall muss man sich mit einer Cracker-Klasse behelfen, da geht das dann wieder.

Delphi-Quellcode:

uses Windows, SysUtils, {...,} StdCtrls;

type
  TListbox = class(StdCtrls.TListbox)
  private
    FAktive_Datei: string;
  public
    property Aktive_Datei: string read FAktive_Datei write FAktive_Datei;
  end;

  TDeinForm = class(TForm)
    DeineListbox: TListbox; //das ist dann die gerade definierte
    ...
  end;

Daran hab ich auch schon gedacht! - Dann ergibt sich für mich nicht wirklich der sinn von class helper
aber das ist eine andere Diskussion...

[Mschmidt]

noch ein Nachtrag; class var geht, weil es keine Instanz-Variable ist. Es wäre genau so, als wenn du eine globale Variable deklarierst.
Class Var ist sogar verfügbar, wenn es keine Instanz gibt. Lediglich der Zugriff erfolgt via <Classname>.Variable statt nur Variable.
cheers Ms.

[stahli]

Zitat von Helmi:

Zitat von DeddyH:

In dem Fall muss man sich mit einer Cracker-Klasse behelfen, da geht das dann wieder.

Daran hab ich auch schon gedacht! - Dann ergibt sich für mich nicht wirklich der sinn von class helper
aber das ist eine andere Diskussion...

Mit einem Helper bleibt die Objekt-Klasse unangetastet.

Mit einer CrackerKlasse muss man das Objekt ggf. casten je nachdem von welcher Klasse das Objekt instanziiert wurde und wie es weiter verarbeitet werden soll. Streng genommen sind es nicht mehr die gleichen Klassen (auch wenn deren Namen noch gleich sind).

[Mschmidt]

Obwohl es vielleicht eher akademischer Natur ist, gefallen mir die Ansaetze hier eher nicht. Wozu gibt es die Vererbung?
Also

TmyListbox = class(tlistbox)
// erweiterungen einbauen

Ggf. Als neue Komponente installieren und verwenden.
Cheers mschmidt

[Sir Rufo]

Zitat von Mschmidt:

Obwohl es vielleicht eher akademischer Natur ist, gefallen mir die Ansaetze hier eher nicht. Wozu gibt es die Vererbung?
Also

TmyListbox = class(tlistbox)
// erweiterungen einbauen

Ggf. Als neue Komponente installieren und verwenden.
Cheers mschmidt

Das ist in diesem Zusammenhang eher kontraproduktiv.
Meine "Presenter" oder "Adapter" Klasse kann leicht auch auf andere visuelle Komponenten/Frameworks angepasst werden und über eine Factory kann ich diese verbinden. Dadurch kann ich der Factory z.B. ein TMemo, TListBox oder TComboBox (VCL sowie FMX) übergeben und bekomme eine Instanz vom Typ der Basisklasse zurück.

Bei dieser Instanz ändere ich die Eigenschaft FileName und fertig ist.

Mit deinem Ansatz müsste ich immer die konkrete Ableitung der Komponente ansprechen (ja, auch möglich per RTTI, aber schick ist das nicht).