Delphi XE3?

[TiGü]

Zitat von jaenicke:

Umso ärgerlicher ist, dass immer noch nur der Helper aus der zuletzt eingebundenen Unit funktioniert. Habe ich also UnitA und UnitB mit Helpern für den gleichen Typ und binde beide in der Reihenfolge ein, funktioniert nur der aus UnitB...

http://docwiki.embarcadero.com/RADSt...arationssyntax
Kann man seine eigenen Helper nicht von den schon bestehenden ableiten?

[Bernhard Geyer]

Zitat von TiGü:

Zitat von jaenicke:

Umso ärgerlicher ist, dass immer noch nur der Helper aus der zuletzt eingebundenen Unit funktioniert. Habe ich also UnitA und UnitB mit Helpern für den gleichen Typ und binde beide in der Reihenfolge ein, funktioniert nur der aus UnitB...

http://docwiki.embarcadero.com/RADSt...arationssyntax
Kann man seine eigenen Helper nicht von den schon bestehenden ableiten?

Wird aber nicht 100% das Problem lösen bzw. unnötige Uses-Abhängigkeiten aufbauen.

[Uwe Raabe]

Zitat von TiGü:

Zitat von jaenicke:

Umso ärgerlicher ist, dass immer noch nur der Helper aus der zuletzt eingebundenen Unit funktioniert. Habe ich also UnitA und UnitB mit Helpern für den gleichen Typ und binde beide in der Reihenfolge ein, funktioniert nur der aus UnitB...

http://docwiki.embarcadero.com/RADSt...arationssyntax
Kann man seine eigenen Helper nicht von den schon bestehenden ableiten?

Ja, aber das löst das Problem leider nur teilweise.

[mkinzler]

Nein funktioniert leider nicht.

Delphi-Quellcode:

type
    MyStringHelper = record helper ( System.SysUtils.TStringHelper) for string
        function Test;
    end;

Zitat:

[dcc32 Fehler] Project1.dpr(7): E2029 ',' oder ':' erwartet, aber '(' gefunden
[dcc32 Fehler] Project1.dpr(7): E2029 ',' oder ')' erwartet, aber '.' gefunden
[dcc32 Fehler] Project1.dpr(7): E2029 ';' erwartet, aber 'FOR' gefunden
[dcc32 Fehler] Project1.dpr(8): E2023 Funktion benötigt Ergebnistyp
[dcc32 Fehler] Project1.dpr(59): E2003 Undeklarierter Bezeichner: 'Test'

[Daniel]

Record-Helper lassen sich im Gegensatz zu Class-Helpern nicht ableiten.

Ich würde auch davon abraten, eine zu große und komplexe Hierarchie in den Helpern - die ja parallel zu den Business-Objekten stehen - etablieren zu wollen. Die Helper selbst sind ja nur Hilfswerkzeuge, die zwar punktuell ungemein praktisch sein können, aber kein Bestandteil des grundsätzlichen Anwendungsdesigns sein sollten.

[TiGü]

Zitat von mkinzler:

Nein funktioniert leider nicht.

Delphi-Quellcode:

type
    MyStringHelper = record helper ( System.SysUtils.TStringHelper) for string
        function Test;
    end;

Zitat:

[dcc32 Fehler] Project1.dpr(7): E2029 ',' oder ':' erwartet, aber '(' gefunden
[dcc32 Fehler] Project1.dpr(7): E2029 ',' oder ')' erwartet, aber '.' gefunden
[dcc32 Fehler] Project1.dpr(7): E2029 ';' erwartet, aber 'FOR' gefunden
[dcc32 Fehler] Project1.dpr(8): E2023 Funktion benötigt Ergebnistyp
[dcc32 Fehler] Project1.dpr(59): E2003 Undeklarierter Bezeichner: 'Test'

Und wenn du anstatt MyStringHelper es TStringHelper nennst?

Die Abhängigkeit anhand der Uses-Reihenfolge habe ich für Interceptor-Geschichten immer als recht angenehm empfunden.
Warum sollten für Helper andere Regeln gelten als für z.B. für Klassen?

Wie ist das, wenn man sich eigene Typen definiert und davon abhängig eigene Helper?

Delphi-Quellcode:

type
  MyString = System.String

  MyStringHelper = record helper for MyString
    function Test;
  end;

[mkinzler]

Zitat:

Wie ist das, wenn man sich eigene Typen definiert und davon abhängig eigene Helper?

Dann wird nur die Funktion Test gekannt.

Zitat:

Warum sollten für Helper andere Regeln gelten als für z.B. für Klassen?

Weil es etwas anderes ist. Helper erweitern zur Laufzeit; keine echte Vererbung.

Zitat:

Ist wohl ein ähnliches Problem wie mit der Mehrfachvererbung (welche Methode bei gleichem Namen).

Es gibt gute Gründe, die gegen Mehrfachvererbung sprechen, dieser ist einer davon. Deshalb unterstützen Delphi, Java, C# usw. diese auch nicht.

[BUG]

Ist wohl ein ähnliches Problem wie mit der Mehrfachvererbung (welche Methode bei gleichem Namen).
Das mit einer so künstlichen Einschränkung zu umgehen ist aber irgendwie typisch

Ableiten ist ja auch keine Lösung, wenn man Helper von verschiedenen Anbietern (und damit Units), benutzen möchte.

[TiGü]

Zitat von BUG:

Ableiten ist ja auch keine Lösung, wenn man Helper von verschiedenen Anbietern (und damit Units), benutzen möchte.

Wie oft kommt sowas vor?

[Uwe Raabe]

Zitat von TiGü:

Zitat von BUG:

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;