16,748
社区成员
发帖
与我相关
我的任务
分享
TForm1 = class(TForm) //类
Button1: TButton;
procedure Button1Click(Sender: TObject); //实例方法
private //私有区
Ffield1: string; //私有属性
protected
procedure someMethod; //方法
public
end;
type
TMyClass = class(TObject)
...
procedure DoSomething;
...
end;
procedure TMyClass.DoSomething;
begin
...
end;