unit Unit2;interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms
Dialogs;type
TDate=class
public
fDate:TDateTime;
constructor Create; overload
constructor Create (y,m,d:Integer);overload
end;
implementation{ TDate }constructor TDate.Create;
begin
fDate:=Date;
end;constructor TDate.Create(y, m, d: Integer);
begin
fDate:=EncodeDate(y,m,d);
end;end.
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms
Dialogs;type
TDate=class
public
fDate:TDateTime;
constructor Create; overload
constructor Create (y,m,d:Integer);overload
end;
implementation{ TDate }constructor TDate.Create;
begin
fDate:=Date;
end;constructor TDate.Create(y, m, d: Integer);
begin
fDate:=EncodeDate(y,m,d);
end;end.
解决方案 »
- 怎么在RzShellList中加入Item的同时,同样把图标也加到SmallImages中
- setfields()?
- ****请问如果提高浏览(数码相机拍摄的)图片的速度?用线程?还是其他方法?小图我已经提取出来了很快,用EXIF,但是大图还不行,速度有
- 请教如何使字符类型的字段在TDBChart里的坐标中显示出来?
- 急!急!急!请各位大侠帮忙解决VCLSkin2.3中的问题!在线等待!
- 急!!!如何备份ACCESS数据库啊?
- 找书,关于delphi的设计模式的书!
- 怎样在有Group by子句的select 语句中生成一个唯一列?
- 由x mod y=z如何根据z,y计算出x呢?100分!!!
- Delphi多个数据逆向输出(内存高低反?)
- 今天为了SQL写的一个返回上个月日期的函数,请大家帮忙看看还有什么补充。
- 请问在Delphi中调用Mapx控件时的问题
public
fDate:TDateTime;
constructor Create; overload;//少了分号
constructor Create (y,m,d:Integer);overload;
end;
-------
如果fdate是私有的尽量放在private里面,如果是属性就无所谓