Kind as Opa innerhalb der Deklerartion

[dmdjt]

Habs getestet mit

Delphi-Quellcode:

TOpa = class
public
  alter : integer;
  procedure tuwas;
end;


procedure TOpa.tuwas;
begin
  showmessage('Großvater '+inttostr(self.alter));
end;

Opa, Vater und Kind haben ein Unterschiedliches Alter. Wenn Alter eine Konstante ist geht es. Wenn nicht, dann ist Alter = 0. Das ist mir klar. Und natürlich die Limitation an dem ganzen. Wird ja nirgendwo zugewiesen. Und wenn dann würde es auch nix bringen, weil man ja auf die KLasse und nicht auf das Objekt zugreift. Hab ich das richtig verstanden?

PS: Bin mal für einige Zeit weg...

[sirius]

Zitat von NamenLozer:

Löscht call automatisch die Register, oder wie?

Nein, aber vor dem Call kann ja noch etwas stehen. Wenn nicht, dann passiert auch nix. Aber schon allein das Nutzen von dynamischen (Interface, String, dyn. Array) Variablen verändert ne Menge Register bevor deine Methode richtig anfängt.
Edit: Ein mov eax,self dürfte allerindg schon reichen. Das sind aber reichlich Verrenkungen.

[Hawkeye219]

Hallo,

abgesehen von möglichen Designfehlern in der Klassenhierarchie - wäre es nicht am einfachsten, dem fleißigen Opa eine weitere, nicht-virtuelle Methode zu spendieren?

Delphi-Quellcode:

type
  TOpa = class
    procedure TuWas; virtual;
    procedure OpaTutWas;
  end;

procedure TOpa.TuWas; 
begin
  OpaTutWas;
end;

procedure TOpa.OpaTutWas;
begin
  // die eigentlichen Aktionen
end;

[...]

procedure TKind.TuWas;
begin
  OpaTutWas;
end;

Die neue Methode kann in allen abgeleiteten Klassen direkt aufgerufen werden.

Gruß Hawkeye

[olee]

Die Methode von Hawkeye219 funktioniert zwar,

aber wenn jetzt TOpa eine Klasse aus Delphi wie TMemo u.a. wäre, könnte man nicht
einfach die Source ändern .

Aber ich bin auch darauf gespannt, ob so was mit asm möglich ist.

ALso so inetwa wie das hier:

Delphi-Quellcode:

asm
  mov eax, self;
  call TOpa.MeinName; 
end;

[sirius]

Zitat von olee:

Aber ich bin auch darauf gespannt, ob so was mit asm möglich ist.

List hier eigentlich noch jemand ALLE bisherigen Kommentare?

[Aphton]

Delphi-Quellcode:

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

[olee]

Ich hab alles gelesen meine Frage war, ob durch dieses MOV danach auch die
Varaible self in TOpa.TuWas zu gebrauchen ist.

[Namenloser]

Zitat von olee:

Ich hab alles gelesen meine Frage war, ob durch dieses MOV danach auch die
Varaible self in TOpa.TuWas zu gebrauchen ist.

Muss eigentlich. Allerdings steht self höchstwahrscheinlich nicht in EAX, denn EAX ist für den Funktionsrückgabewert reserviert.

[sirius]

Zitat von olee:

Ich hab alles gelesen meine Frage war, ob durch dieses MOV danach auch die
Varaible self in TOpa.TuWas zu gebrauchen ist.

Ja, ist es, siehe Beitrag #22
Edit: Sorry, den hatte ich editiert....


@Aphton:

Delphi-Quellcode:

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

Aber mach doch, wie ich schon schrieb, ein mov eax,self direkt vor den Aufruf.

[fajac]

Etwas gekünstelt könnte man es so machen:

Delphi-Quellcode:

interface

type
  TOpa = class (TObject)
  public
    procedure SachWas (ARecurse : Integer = 0); virtual;
  end;

  TVater = class (TOpa)
  public
    procedure SachWas (ARecurse : Integer = 0); override;
  end;

  TSohn = class (TVater)
  public
    procedure SachWas (ARecurse : Integer = 0); override;
  end;

implementation

{ TOpa }

procedure TOpa.SachWas (ARecurse: Integer = 0);
begin
  ShowMessage ('Hallo Jungs!')
end;

{ TVater }

procedure TVater.SachWas (ARecurse: Integer = 0);
begin
  if ARecurse > 0 then
    inherited SachWas (ARecurse - 1)
  else
    ShowMessage ('Hallo Bub!')
end;

{ TSohn }

procedure TSohn.SachWas (ARecurse: Integer = 0);
begin
  if ARecurse > 0 then
    inherited SachWas (ARecurse - 1)
  else
    ShowMessage ('GuGu!')
end;

procedure AlleSagenWas(Sender: TObject);
var
  kind : TSohn;
begin
  kind := TSohn.Create;
  try
    kind.SachWas;
    kind.SachWas(1);
    kind.SachWas(2);
  finally
    kind.Free;
  end;
end;