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.