var mStream:TMemory; begin mStream:= TMemory.Create;//实例化 end;
type TDate = class //定义一个类 Mouth,day,Year:Integer; procedure SetValue(m,d,y:Integer); function LeapYear:Boolean; end;procedure TDate.SetValue(m,d,y):Integer; begin Mouth := m; Day := d; Year := y; end;function TDate.LeapYear:Boolean; begin if (Year mod 4<>0) then LeapYear := False else if (Year mod 100 <> 0) LeapYear := True else if (Year mod 400 <> 0) LeapYear := False else LeapYear := True; end; //实现了这些定义之后,就可以这样调用它们:var ADay:TDate; begin //建立一个对象 ,类实例化 ADay := TDate.create; //使用之 ADay.SetValue(1,1,2000); if ADay.LeapYear then ShowMessage('闰年:' + Inttostr(ADay.year)); //释放对象 ADay.free; end;
var adoquery_1:Tadoquery; begin adoquery_1:= Tadoquery.Create(nil);//实例化
mStream:TMemory;
begin
mStream:= TMemory.Create;//实例化
end;
TDate = class //定义一个类
Mouth,day,Year:Integer;
procedure SetValue(m,d,y:Integer);
function LeapYear:Boolean;
end;procedure TDate.SetValue(m,d,y):Integer;
begin
Mouth := m;
Day := d;
Year := y;
end;function TDate.LeapYear:Boolean;
begin
if (Year mod 4<>0) then
LeapYear := False
else if (Year mod 100 <> 0)
LeapYear := True
else if (Year mod 400 <> 0)
LeapYear := False
else
LeapYear := True;
end;
//实现了这些定义之后,就可以这样调用它们:var
ADay:TDate;
begin
//建立一个对象 ,类实例化
ADay := TDate.create;
//使用之
ADay.SetValue(1,1,2000);
if ADay.LeapYear then
ShowMessage('闰年:' + Inttostr(ADay.year));
//释放对象
ADay.free;
end;
adoquery_1:Tadoquery;
begin
adoquery_1:= Tadoquery.Create(nil);//实例化
end;
//月亮 : 问下 动态生成的 adoquery_1 的 属性 (active .... ) 是不是和在面版上拖下的adoquery属性 一个样呢
ADay:TDate;
我想在窗口中就象其它控件一样的直接赋值了。