unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
   TMyObject = class(TObject)
  private
   {}  public
  iValue:Integer;
  fValue:Double;
  sVAlue:String;
  iArray:array[1..10]of Byte;
  function GetHashValue:Integer;virtual;
  destructor Destrory;override;//method 'Destrory'not found in base class
  end;var
  Form1: TForm1;implementation{$R *.dfm}end.

解决方案 »

  1.   

    是  destroy
    而不是:
    destrory晕倒————————————————————————————————————
    宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
    ————————————————————————————————————
      

  2.   

    单词写错了Destroy,而非 Destrory从Tobject 继承就可以了
      

  3.   

    Destroy是基类(TObject)的东东,只要Override即可。
      

  4.   

    我改成destroy,报错:[Error] Unit1.pas(28): Unsatisfied forward or external declaration: 'TMyObject.Destroy'
      

  5.   

    把光标移到destroy出,按ctrl+shift+c键自动生成如下代码:destructor TMyObject.destroy;
    begin
    //你的代码
      inherited;
    end;