HeapTrc에서 잘못된 서명이 나타나는 이유는 무엇입니까?

Question

다음과 같은 코드를 최대한 단순화하여 문제점을 보여주었습니다. 소멸자 TClass3.Destroy가 완료되면 FreeAndNil (FClass3) 작업으로 인해 문제가 발생하고 프로그램이 중지됩니다. Heap.trc 파일의 모습이 있다면 내가 잘못 $ 0000000001528FD0에서

마크 된 메모리를 읽을 수
잘못된 서명 $ 2951FD2D 대신

program Project_testFree; 
{$mode objfpc}{$H+} 

uses 
    sysutils; 

type 
    TClass1 = class 
    private 
    protected 
    public 
    constructor Create; 
    end; 

    TClass2 = class(TClass1) 
    private 
    protected 
    FTClass2 : cardinal; 
    public 
    end; 

    TClass3 = class 
    private 
    protected 
    FClass3  : TClass1; 
    public 
    constructor Create;virtual; 
    destructor Destroy;override; 
    end; 

    TClass4 = class(TClass3) 
    private 
    function GetLocalClass2: TClass2; 
    protected 
    public 
    constructor Create;override; 
    destructor destroy;override; 
    property pClass2:TClass2 read GetLocalClass2; 
    end; 

constructor TClass1.Create; 
begin 
    inherited; 
end; 

constructor TClass3.Create; 
begin 
    FClass3    := TClass1.create; 
end; 

destructor TClass3.Destroy; 
begin 
    FreeAndNil(FClass3); 
    writeln('Destroy'); 
    inherited Destroy; 
end; 

constructor TClass4.Create; 
begin 
    inherited Create; 
    pClass2.FTClass2 := 1; 
end; 

destructor TClass4.destroy; 
begin 
    inherited destroy; 
end; 

function TClass4.GetLocalClass2: TClass2; 
begin 
    result := TClass2(FClass3); 
end; 

var 
    c:TClass4; 
begin 
    if FileExists('heap.trc') then 
    DeleteFile('heap.trc'); 
    SetHeapTraceOutput('heap.trc'); 

    c:=TClass4.Create; 
    c.free; 
end. 

5C063D8B

나는 나사로 1.6.2 사용합니다. 도움 주셔서 감사합니다.

Answer 1

FClass3을 TClass2으로 캐스팅합니다. 하지만 TClass1을 인스턴스화했습니다. 따라서 오류를 설명하는 캐스트가 올바르지 않습니다. 본질적으로, 당신은 컴파일러에게 거짓말을했고, 그것은 그것의 복수를 요구했습니다.

as을 사용하여 체크 된 캐스트를 사용했다면 런타임 오류가 발생했을 것입니다.