Gleicher Prozedurenname - Anderer Parametertyp

[Volker Z.]

Hallo,

vielleicht hilft Dir folgendes weiter:

Delphi-Quellcode:

TForm4 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    RichEdit1: TRichEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure GetTask (Obj : TCustomEdit); overload;
    procedure GetTask (Obj : TEdit); overload;
    procedure GetTask (Obj : TMemo); overload;
  end;

procedure TForm4.Button1Click(Sender: TObject);
begin
  GetTask (Edit1);
  GetTask (Memo1);
  GetTask (Richedit1);
end;

procedure TForm4.GetTask(Obj: TCustomEdit);
begin
  ShowMessage ('Bin ein CustomEdit')
end;

procedure TForm4.GetTask(Obj: TEdit);
begin
  ShowMessage ('Bin ein Edit')
end;

procedure TForm4.GetTask(Obj: TMemo);
begin
  ShowMessage ('Bin ein Memo')
end;

Ausgabe:
Bin ein Edit
Bin ein Memo
Bin ein CustomEdit

Gruß