Ableiten ist ja auch keine Lösung, wenn man Helper von verschiedenen Anbietern (und damit Units), benutzen möchte.
Wie oft kommt sowas vor?
Kommt schon vor - auch bei eigenen Helpern. Wenn ich bei einem Helper für eine Klasse immer die Vererbungshierarchie der Helper berücksichtigen muss, erhöht das nicht gerade die Modularisierung.
Was aber geht, sind mehrere class helper für unterschiedliche Basisklassen:
Delphi-Quellcode:
type
TObjectHelper = class helper for TObject
public
procedure Foo;
end;
TComponentHelper = class helper for TComponent
public
procedure Bar;
end;
procedure TObjectHelper.Foo;
begin
end;
procedure TComponentHelper.Bar;
begin
end;
procedure TForm158.FormCreate(Sender: TObject);
begin
Foo;
Bar;
end;