各位前辈,小弟初学,帮忙看看那错了?

sndy77 2004-01-06 09:59:00
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.
...全文
47 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
sndy77 2004-01-06
  • 打赏
  • 举报
回复
OK,谢了,哥们.
cll007 2004-01-06
  • 打赏
  • 举报
回复
TDate=class
public
fDate:TDateTime;
constructor Create; overload;//少了分号
constructor Create (y,m,d:Integer);overload;
end;
-------
如果fdate是私有的尽量放在private里面,如果是属性就无所谓

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧