Overload function

[RWarnecke]

Hallo zusammen,

ich sehe gerade den Wald vor lauter Bäumen nicht mehr. Wo mache ich in diesem Beispiel den Fehler ?

Delphi-Quellcode:

THauptklasse = class(TComponent)
private
public
    function Post(const Msg, Link, Image: string): string; overload;
    function Post(const Msg, Link, Image: string; Page: TPage): string; overload;
    function Post(const Msg, Link, Image: string; Group: TGroup): string; overload;
published
end;

{...}

function THauptklasse.Post(const Msg, Link, Image: string): string;
begin
  Post(Msg, Link, Image, nil);  //<<--- Fehler
end;

function THauptklasse.Post(const Msg, Link, Image: string; Page: TPage): string;
begin
  { To do something }
end;

function THauptklasse.Post(const Msg, Link, Image: string; Group: TGroup): string;
begin
  { To do something }
end;

Die beiden Klassen TPage und TGroup sind von TPersistent abgeleitet.

Wenn ich jetzt kompiliere bekomme ich den Fehler:

Zitat:

[dcc32 Error] Testklassen.pas(842): E2251 Ambiguous overloaded call to 'Post'

Nehme ich jetzt eine der beiden Funktionen mit TPage oder TGroup raus ist der Fehler weg.

[Sir Rufo]

Wie soll der Compiler bei nil denn auflösen, welche Methode er nehmen soll?

PS: Das ist mit Ambiguous gemeint

[RWarnecke]

Ok, leuchtet ein bisschen ein. Nur was müsste ich machen, dass er bei nil oder bei einer TPage-Klasse immer die Funktion mit TPage nimmt und wenn ich beim Aufruf ein TGroup angebe soll er die andere Funktion nehmen ?

Oder kann ich das gar nicht über eine überladene Funktion regeln ? Ich tue mich immer noch schwer damit.

[mkinzler]

Überrgib eine typisierte Konstante

[RWarnecke]

Wie sollen mir hier typisierte Konstanten weiterhelfen ? Könntest Du das bitte ein bisschen ausführlicher erklären.

[himitsu]

Na wenn das typisiert ist, dann weiß der Compiler ja, daß es TPage sein soll.

Oder typisiere das Nil.
Post(Msg, Link, Image, TPage(nil));

Oder deklariere die Überladungen so, daß es keine derartigen Probleme gibt.


Bei TPage nimmt er ja schon TPage, aber NIL passt nunmal auch zu TGroup, also kann man es nirgends sicher zuordnen.

[daywalker9]

Default(TPage) als Parameter sollte auch gehen in neueren delphi Versionen.

[RWarnecke]

Hallo zusammen,

ich bedanke mich erstmal für die zahlreichen Antworten. Ich glaube so langsam kapiere ich es. Das Thema ist nicht gerade mein Steckenpferd. Die Variante von himitsu kann ich jetzt ohne Fehler kompilieren. Das hilft mir erstmal weiter, Danke.

[himitsu]

Zitat von RWarnecke:

Die Variante von himitsu kann ich jetzt ohne Fehler kompilieren.

Das ist im Prinzip die selbe Variante, wie von mkinzler beschrieben,
nur eben mit einer impliziten Konstante.

Delphi-Quellcode:

const
  NoPage: TPage = nil;

Post(Msg, Link, Image, NoPage);

Das Default nutze ich eher für das, wo es her kommt, also in einer generischen Methode.
Denn so ist es ein bissl ungewohnt und nicht direkt als 0/nil zu erkennen.

[Furtbichler]

Andere Idee:
Was ist eigentlich so toll an überladenen Funktionen?
Wieso nicht einfach:

Delphi-Quellcode:

THauptklasse = class(TComponent)
private
public
     function Post(const Msg, Link, Image: string): string; overload;
     function PostPage(const Msg, Link, Image: string; Page: TPage): string;
     function PostGroup(const Msg, Link, Image: string; Group: TGroup): string;
published
end;

Ist für mich mindestens genauso verständlich.