Kind as Opa innerhalb der Deklerartion

[dmdjt]

Oja, das hilft!

Und damit hat die Frage sich wirklich ausgezahlt. Auch wenn sie in ihrer Ursprungsform irgendwie nicht so besonders sinnvoll erscheint. (Normal hätte ich einfach bei TVater eine weitere Methode eingeführt und nicht jene von TOpa überschrieben.)

Manche Dinge versteht man erst richtig, wenn man ihre Grenzen findet.

Achja, warum sind die Bezichnungen Opa, Vater und Kind ungünstig gewählt? Dachte nur, dass so der Stammbaum schnell ersichtlich ist. Bin aber was Namensgebung betrifft irgendwie sehr schleißig sollte ich ändern

[Aphton]

Delphi-Quellcode:

  TOpa = class
  public
    procedure MeinName(); virtual;
  end;

  TVater = class( TOpa )
  public
    procedure MeinName(); override;
  end;

  TKind = class( TVater )
  public
    procedure MeinName(); override;
  end;

...
procedure TForm1.FormCreate(Sender: TObject);
var
  k: TKind;
begin
  k := TKind.Create;
  k.MeinName;
  k.Free;
end;

{ TOpa }
procedure TOpa.MeinName;
begin
  ShowMessage( 'Ich bin dein Opa' );
end;

{ TVater }
procedure TVater.MeinName;
begin
  inherited;
  ShowMessage( 'Ich bin dein Vater, krchh (:D)' );
end;

{ TKind }
procedure TKind.MeinName;
begin
//  inherited;
  asm
    call TOpa.MeinName
  end;
  ShowMessage( '(Kind:) a gugugugu' );
end;

[dmdjt]

Hey, das ist cool und funktioniert!

Wie bist Du auf die Idee gekommen und noch viel wichtiger: Warum geht das mit Inline-Assembler?

Edit:
Okay, ich kanns mir vorstellen warum. Angelegt wird die Methode ja irgendwo. Und mit call springt man halt zu eben jener.

[Aphton]

Wie bin ich auf die Idee gekommen?
Hab einfach das Projekt debuggt, und gesehen, wie ein inherited Aufruf in Assembler aussieht.

Warum funktioniert das?


MfG

[sirius]

@Aphton
Das funktioniert nicht!
Greif mal in TOpa.MeinName auf self zu (Also lass dir irgendein sinnvolles Feld einfallen)!

Ansonsten kannst du auch MeinName als Klassenmethode deklarieren, dann geht es auch ohne ASM.
Edit: Aber eine Klassenmethode ist ja nicht das Ziel.

Edit2: Folgende Änderung:

Delphi-Quellcode:

 TOpa = class
  private
     x:Integer;
  public
    procedure MeinName(); virtual;
  end;

//und:

procedure TOpa.MeinName;
begin
  x:=5;
  ShowMessage( 'Ich bin dein Opa' );
end;

procedure TKind.MeinName;
var i:Integer;
begin
  for i:=0 to 0 do showmessage('Damit es nicht durch Zufall doch klappt');
  asm
    call TOpa.MeinName
  end;
  ShowMessage( '(Kind:) a gugugugu' );
end;

[Namenloser]

Zitat von dmdjt:

Hey, das ist cool und funktioniert!

Wie bist Du auf die Idee gekommen und noch viel wichtiger: Warum geht das mit Inline-Assembler?

Die Frage ist eher: Geht das auch ohne? Also nur TOpa.MeinName()?

[sirius]

Zitat von dmdjt:

Mit virtual, abstract usw. (wie heißen diese Schlüsselworte eigentlich?) kenn ich mich nicht mehr besonders gut aus und hab einfach nur herum probiert. Liegt es vielleicht an denen?

Ja.

[Aphton]

Nö, das tut es nicht.
Ich nehme mal an, per Inline Asm ruft man da direkt im Proc-Chain die Methode(Proc/Func) auf,
da ja bei der Vererbung den erbenden Klassen alle Methoden der Parentklasse zur Verfügung stehen.

Aber ich rate nur blöd rum... Deshalb halte ich mich an mein Avater

MfG

[sirius]

Zitat von NamenLozer:

Die Frage ist eher: Geht das auch ohne? Also nur TOpa.MeinName()?

Wie gesagt: Es geht (eigentlich) nicht mal mit. Hier ist es nur Zufall, da self nicht benötigt wird.
Und bei einer Klassenmethode gänge es auch ohne, ja. Aber hier ging es ja um virtuelle Methoden.

[Namenloser]

Zitat von sirius:

Zitat von NamenLozer:

Die Frage ist eher: Geht das auch ohne? Also nur TOpa.MeinName()?

Wie gesagt: Es geht (eigentlich) nicht mal mit. Hier ist es nur Zufall, da self nicht benötigt wird.
Und bei einer Klassenmethode gänge es auch ohne, ja. Aber hier ging es ja um virtuelle Methoden.

Dass es mit einer Klassenmethode geht, ist klar. Was mir jedoch nicht gnaz klar ist, ist wieso der Zurgiff auf self nicht funktioniert: Wenn ich mich nicht irre steht self doch immer im Register EBX, und EBX wurde doch nicht verändert, müsste doch also in TOpa.MeinName immer noch auf das gleiche Objekt verweisen. Löscht call automatisch die Register, oder wie?