Interessantes Destruktor Problem

[Deep-Sea]

Delphi-Quellcode:

constructor TGrundklasse.Create(AStream: TStream);
begin
  inherited Create;
end;

destructor TGrundklasse.Destroy;
begin
  inherited;
end;

constructor TAbgeleiteteKlasse.Create;
begin
  FStream := TMemoryStream.Create;
  inherited Create(FStream);
end;

destructor TAbgeleiteteKlasse.Destroy;
begin
  inherited; // Könnte ja auf den übergebenen Stream noch zugreifen.
  FStream.Free;
end;

Destroy von TGrundklasse:

Code:

Unit1.pas.47: inherited;
0046491F 8BD3             mov edx,ebx
00464921 80E2FC           and dl,$fc
00464924 8BC6             mov eax,esi
00464926 E8B9F1F9FF       call TObject.Destroy
Unit1.pas.48: end;
0046492B 84DB             test bl,bl
0046492D 7E07             jle $00464936 // Springt um ClassDestroy herum.
0046492F 8BC6             mov eax,esi
00464931 E846F6F9FF       call @ClassDestroy // Ruft FreeInstance auf.
00464936 5E               pop esi
00464937 5B               pop ebx
00464938 C3               ret 
00464939 8D4000           lea eax,[eax+$00]

Richtig, ClassDestroy, was FreeInstance aufrufen wird, steht hier drin. ABER: Durch den bedingten Sprungbefehl jle wird es hier nicht aufgerufen!

Destroy von TAbgeleiteteKlasse:

Code:

Unit1.pas.58: inherited;
00464993 8BD3             mov edx,ebx
00464995 80E2FC           and dl,$fc
00464998 8BC6             mov eax,esi
0046499A E875FFFFFF       call TGrundklasse.Destroy
Unit1.pas.59: FStream.Free;
0046499F 8B4604           mov eax,[esi+$04]
004649A2 E84DF1F9FF       call TObject.Free
Unit1.pas.60: end;
004649A7 84DB             test bl,bl
004649A9 7E07             jle $004649b2 // Springt nicht.
004649AB 8BC6             mov eax,esi
004649AD E8CAF5F9FF       call @ClassDestroy // Ruft FreeInstance auf.
004649B2 5E               pop esi
004649B3 5B               pop ebx
004649B4 C3               ret 
004649B5 8D4000           lea eax,[eax+$00]

@Neutral General:
Zwingt dich auch keiner zu, wenn du schnell den Überblick verlierst. Aber falsch ist es immer noch nicht.


Danke Uwe, endlich mal jemand der auf meiner Seite steht