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.
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.
解决方案 »
- 当一个操作任务未完成长时,如何锁定界面上的其他操作?
- 程序员的收入如何?
- 关于有向完全图的最小环?
- 毕业设计要用,急啊,高手来看一下
- 如何实现运行从ftp上下载下来的应用程序
- 请教斑竹:SQL参数的问题?
- delphi中的TreeView控件 与 ImageList控件怎能么用
- 小妹刚学会一点点,请大家帮帮我,在线等!
- 假设form1上放了有memo,panel,button,grid等控件,怎么样可以偷懒而达到
- 大分相送:怎样屏蔽Delphi提示的错误'JPEG error 67'.
- 用DELPHI写了一个可过滤某些站点的东东,来看,都有分!!!
- 在什么事件中对clientdataset的commandtext加密
而不是:
destrory晕倒————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
begin
//你的代码
inherited;
end;