verschiedene class helper für eine Klasse

[Uwe Raabe]

Ja, es kann immer nur einen Class Helper für je Klasse im aktuellen Scope geben.

Aber: Class Helper von Klassen sind vererbbar:

Delphi-Quellcode:

type
  TStringClassHelper = class helper for TStrings
  end;

type
  TStringClassHelperZusatz = class helper(TStringClassHelper) for TStrings
  end;

Eine andere Alternative, wenn es denn machbar ist, wären noch Class Helper für unterschiedliche Klassen:

Delphi-Quellcode:

type
  TStringClassHelper = class helper for TStrings
  end;

type
  TStringListClassHelper = class helper for TStringList
  end;

Eine TStringList kennt dann die Methoden aus beiden Helpern.

[Der schöne Günther]

Zitat von Uwe Raabe:

Eine andere Alternative, wenn es denn machbar ist, wären noch Class Helper für unterschiedliche Klassen:

Delphi-Quellcode:

type
  TStringClassHelper = class helper for TStrings
  end;

type
  TStringListClassHelper = class helper for TStringList
  end;

Eine TStringList kennt dann die Methoden aus beiden Helpern.

Da wäre ich nie drauf gekommen. Wieder was gelernt 👍

[hes]

Zitat von Uwe Raabe:

Ja, es kann immer nur einen Class Helper für je Klasse im aktuellen Scope geben.

Aber: Class Helper von Klassen sind vererbbar:

Delphi-Quellcode:

type
  TStringClassHelper = class helper for TStrings
  end;

type
  TStringClassHelperZusatz = class helper(TStringClassHelper) for TStrings
  end;

Ich habe das mal getestet. Kann es sein bei der Codevervollständigung zeigt es nur die Funktion(en) der vererbten Klasse TStringClassHelperZusatz an?
Das aus TStringClassHelper sehe ich nicht, es lässt sich aber ohne Fehler übersetzen und funktioniert.