Delphi Delete TNode, 호환되지 않는 유형 TNodePtr

Question

루트 노드로 만든 이진 트리 클래스가 있는데 코드에 필요에 따라 노드를 추가 할 수 있지만 노드를 가리킬 때 문제가 있습니다. TNodePtr과 호환되지 않으며 TNode와 호환되지 않는 유형입니다. 현재이 호환되지 않는 유형이 정렬되면 작동해야하는 노드를 삭제하는 재귀 적 방법이 있습니다. 감사.

Destructor TTree.Destroy; 
procedure FreeSubnodes(Node: TNodePtr); 
begin 
     if Assigned(Node.Left) then 
       FreeSubnodes(Node.Left); 
     if Assigned(Node.Right) then 
       FreeSubnodes(Node.Right); 
     Delete(Node); 
end; 
begin 
     FreeSubnodes(Root); 
     inherited; 
end; 

편집 2010년 4월 3일 (50) [경고] SystemBuild.pas : 방법 "파괴"기본 유형의 가상 메소드를 숨기는 'TObject의' [오류]에서는 SystemBuild 주어진 오류가 이쪽 .pas (84) : 호환되지 않는 유형

라인 84는 삭제 (노드)입니다. 이 같은

type 
    TNodePtr = ^TNode; 
    TNode = Record 
     Data:String; 
     Left:TNodePtr; 
     Right:TNodePtr; 
    end; 

그리고 나무 :

는이 같은 노드 선언 된 포인터를 사용 노드 역 참조에

Type 
    TTree = Class 
    Private 
     Root:TNodePtr; 
    Public 
     Function GetRoot:TNodePtr; 
     Constructor Create; 
     Destructor Destroy; 
    end; 

Answer 1

표시되는 오류입니다 실수로 인해 나는 your previous question에게 준 대답을 만들었습니다. I wrote Delete 내가 Dispose로 작성해야합니다. 사과드립니다.

destructor TTree.Destroy; 
    procedure FreeSubnodes(Node: PNode); 
    begin 
    if Assigned(Node.Left) then 
     FreeSubnodes(Node.Left); 
    if Assigned(Node.Right) then 
     FreeSubnodes(Node.Right); 
    Dispose(Node); 
    end; 
begin 
    FreeSubnodes(Root); 
    inherited; 
end; 

이 오류는 TNodePtr가 TNode와 호환되지 않는 것을 말하는되지 않은 : 여기에, 다음, 올바른 소멸자 구현입니다. 컴파일러는 Delete 형식을 알 수 없으므로이 오류는 "호환되지 않는 형식"이라고 표시됩니다. 이것은 여러 가지 매개 변수 유형을 받아들이는 컴파일러 - 매직 함수로, 어느 것도과 호환되지 않습니다.

첫 번째 컴파일러 메시지는 Destroy 메서드가 기본 클래스에서 메서드를 숨기는 것에 대한 것입니다. 그것은 당신이 보았던 문제에 책임이 없지만 소멸자가 결코 불려 가지 않을 것이기 때문에 결국 문제를 발견하게 될 것입니다. Free으로 전화하면 새 버전이 아닌 TObject 'sDestroy 메서드를 호출합니다. 대신 전화를 받으려면 을 상속받은 버전 인으로 대체해야합니다. 그런 다음 TObject.Free을 Destroy이라고하면 컨트롤이 먼저 사용자의 버전으로 이동 한 다음 inherited에 전화 할 때 기본 클래스의 버전으로 이동합니다. 선언을 다음으로 변경하십시오.

destructor Destroy; override; 

Answer 2

을^

Answer 3

Destructor TTree.Destroy; 
    procedure FreeSubnodes(Node: TNodePtr); 
    var 
     ThisNode:TNode; 
    begin 
     ThisNode := Node^; 
      if Assigned(ThisNode.Left) then 
        FreeSubnodes(ThisNode.Left); 
      if Assigned(ThisNode.Right) then 
        FreeSubnodes(ThisNode.Right); 
      Dispose(Node); 
    end; 
begin 
     FreeSubnodes(Root); 
     inherited; 
end; 

Answer 4

레코드 대신 TComponent를 사용하십시오. 레코드 유형 (포인터)이 오래되었고 안전하지 않습니다. TComponent는 더 쉽고 추상적입니다. 문제가 https://stackoverflow.com/a/1032252/528588와 비슷합니다.