Aufruf von überladenen Methoden (tatsächlicher Objekttyp)

[urs.liska]

Hallo,

ich habe eine Frage zum Überladen von Methoden.
Wenn ich eine Klasse wie die folgende schreibe:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    FControl: TWinControl;
    procedure Display(AWinControl: TWinControl); overload;
    procedure Display(AEdit: TCustomEdit); overload;
    procedure Display(AListControl: TCustomListControl); overload;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

und dann FControl verschiedene Steuerelemente (Edit, ComboBox, ListBox) zuweise und jeweils Display(FControl) aufrufe:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  FControl := TWinControl.Create(Self);
  Display(FControl);
  FControl.Free;

  FControl := TEdit.Create(Self);
  Display(FControl);
  FControl.Free;

  FControl := TListbox.Create(self);
  Display(FControl);
  FControl.Free;

  FControl := TComboBox.Create(self);
  Display(FControl);
  FControl.Free;
end;

wird immer die Methode Display(AWinControl) aufgerufen. Die überladene Version der Methode wird also offensichtlich nicht danach ausgewählt, welchen Typ das übergebene Objekt tatsächlich hat, sondern, was der Compiler darüber weiß (nämlich FControl: TWinControl).
Kann ich irgendwie erreichen, dass eine Methode abhängig vom tatsächlichen Objekttyp aufgerufen wird?

Ich schreibe eine Klasse, die Daten enthält und in Steuerelementen darstellt. Es gibt eine Methode, in der der Anwendungsentwickler ein Steuerelement bei dem Datenobjekt registriert. Bis jetzt habe ich es (wg. des geschilderten Problems) so gemacht, dass es ein Feld "FDisplayProc: procedure(Control: TWinControl) of object" gibt, und in der Registrierungsmethode wird dann in Abhängigkeit vom Control-Typ eine der (nicht überladenen) Methoden wie DisplayEdit(AEdit: TCustomEdit) an FDisplayProc zugewiesen. Die Methode 'Display' ruft dann FDisplayProc(FControl) auf.
Das funktioniert zwar, aber es wäre wesentlich eleganter, wenn ich das Problem mit Überladen lösen könnte.
Wäre toll, wenn mir jemand einen Tipp geben könnte.

Vielen Dank im Voraus
Urs

[Blechwolf]

Salut,

ich befürchte Dein Problem liegt darin, daß die zwei anderen Typen die Du verwendest von TWinControl abgeleitet sind. (siehe Hilfe von TWinControl)
Insofern bin ich mir nicht sicher, ob es wirklich eine Lösung gibt. Was ich probieren würde (und Du mit Sicherheit schon gemacht hast), ist die Reihenfolge zu ändern, wie Du die Prozeduren bzw. Funktionen deklarierst.
Also

Delphi-Quellcode:

procedure Display(AEdit: TCustomEdit); overload;
procedure Display(AListControl: TCustomListControl); overload;
procedure Display(AWinControl: TWinControl); overload;

mit dem Gedanken dahinter, daß sich der Compiler ja eine Sprungtabelle erzeugt, wo die Funktionen drinstehen und er dann bei gleichnamigen Funktionen/Prozeduren der Reihe nach durchgeht und schaut ob und wie der Parameter paßt und sonst halt zur nächsten Prozedur/Funktion mit diesem Namen geht.

Grüße
Blechwolf

[urs.liska]

Hallo Blechwolf,

wenn das Problem tatsächlich darin liegt, dass ich von TWinControl abgeleitete Objekte verwende, dann gibt es vielleicht wirklich keine Lösung. Denn ich will ja gerade ermöglichen, beliebige Steuerelemente zu registrieren...
Das mit der Reihenfolge habe ich allerdings noch nicht probiert. Mal sehen...

Danke
Urs

[jbg]

Du könntest auch in procedure Display(AWinControl: TWinControl); mit dem is Operator abfragen um welche Klasse es sich handelt.

[urs.liska]

danke für die Tipps.
Es scheint darauf rauszulaufen, dass ich nicht darum herumkomme, selbst den Typ zu ermitteln und die entsprechende Methode aufzurufen. (@Blechwolf: Delphi hat sich durch die geänderte Reihenfolge nicht überlisten lassen).

Damitdas ganze übersichtlich bleibt, werde ich wohl die Display-Methode in ein eigenes Objekt auslagern, das als public nur eine 'function Display(AValue: Variant; AControl: TWinControl): boolean;' zeigt, in dieser den Typ des Controls ermittelt und dann die entsprechende private Methode aufruft.

Na ja, mal sehen
Grüße
Urs