菜鸟的问题,简单(50分)

H

huddle

Unregistered / Unconfirmed
GUEST, unregistred user!
我试着自己建一个类,但下面这一段代码总是不能编译通过
代码:
unit Unit2;

interface
type
tcusdate=class
private
  iyear,imonth,idate:integer;
public

Constructor create(y,m,d:integer);
end;

implementation

procedure tcusdate.Create(y,m,d:integer);
begin
  iyear:=y;
  imonth:=m;
  idate:=d;
end;

end.

报的错是:“Declaration of 'create' differs from previous declaration”
我看不出两处声明有什么不同,望各位指点。
 
constructor tcusdate.Create(y,m,d:integer);
begin
iyear:=y;
imonth:=m;
idate:=d;
end;

 
顶部