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