TClass1 = class { };呵呵,怎么样,已经是“写一个类”了。 看看面向对象的书吧,即使是C++的也行。
Type Myobject = class privated m_dataset :Tdatasource; function Set_datasource(ds: Tdatasource): boolean; function Get_datasource:Tdatasource; public function Savedata(ds: Tdatasource):boolean; virtual; abstract; end;
{
};呵呵,怎么样,已经是“写一个类”了。
看看面向对象的书吧,即使是C++的也行。
Myobject = class
privated
m_dataset :Tdatasource;
function Set_datasource(ds: Tdatasource): boolean;
function Get_datasource:Tdatasource;
public
function Savedata(ds: Tdatasource):boolean; virtual; abstract;
end;