AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Algorithmen, Datenstrukturen und Klassendesign Delphi Vererbung: Wie rufe ich Klasse.Parent.Methode auf?
Thema durchsuchen
Ansicht
Themen-Optionen

Vererbung: Wie rufe ich Klasse.Parent.Methode auf?

Ein Thema von MaBuSE · begonnen am 23. Okt 2014 · letzter Beitrag vom 27. Okt 2014
 
zagota

Registriert seit: 3. Sep 2014
38 Beiträge
 
#4

AW: Vererbung: Wie rufe ich Klasse.Parent.Methode auf?

  Alt 23. Okt 2014, 15:04
Habe den Source mal angepasst. Nicht schön aber sollte gehen...


Hallo,
ich habe ein Problem mit einem Methodenaufruf.

Folgendes Szenario:
Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

  TMutter = class(TObject)
  public
    procedure a(x: Boolean); virtual;
    procedure b; virtual;
  end;

  TKind = class(TMutter)
  public
    procedure a(x: Boolean); override;
    procedure b; override;
  end;

//++++++++++++++++ inserted +++++++
  TB = procedure of object;
//++++++++++++++++


procedure Log(s:string);

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Log(s:string);
begin
  Form1.Memo1.Lines.Add(s);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Mutter: TMutter;
  Kind: TKind;
begin
  Memo1.Lines.Clear;

  Log('');
  Log('Mutter beinhaltet Mutter');
  Mutter := TMutter.Create;
  Mutter.a(True); // TMutter.a wird aufgerufen
  Mutter.Free;

  Log('');
  Log('Kind beinhaltet Kind');
  Kind := TKind.Create; // TKind.a wird aufgerufen
  Kind.a(True);
  Kind.Free;

  Log('');
  Log('Mutter beinhaltet Kind');
  Mutter := TKind.Create;
  Mutter.a(False); // TKind.a wird aufgerufen
  Mutter.Free;

end;

{ TKind }

procedure TKind.a(x: Boolean);
begin
  Log('TKind.a1');
  inherited;
  Log('TKind.a2');
end;

procedure TKind.b;
begin
  Log('TKind.b1');
  inherited;
  Log('TKind.b2');
end;

{ TMutter }

procedure TMutter.a(x: Boolean);

// +++++++++++
var
  Proc: TB;
// +++++++++++

begin
  Log('TMutter.a1');
  if x then
  begin
    // b aufrufen. (Wenn Self = TKind ist, dann wird TKind.b aufgerufen.)
    b;
  end
  else
  begin
    // Hier sollte immer TMutter.b aufgerufen werden!!!
// +++++++++++
    TMethod(Proc).Code := @TMutter.b;
    TMethod(Proc).Data := Self;
    Proc();
// +++++++++++
// b;
  end;
  Log('TMutter.a2');
end;

procedure TMutter.b;
begin
  Log('TMutter.b');
end;

end.

MaBuSE
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:18 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz