Taxies = class(Tobject)
public
constructor cteate(Ftype:double);virtual;
end;
Trailwayaxies= class(Taxies)
private
Ftype:string;
Fd1:double;
Fd2:double;
Fd3:double;
Fd4:double;
Fd5:double;
Fd6:double;
Fl1:double;
Fl2:double;
Fl3:double;
Fl4:double;
Fl5:double;
Fl6:double;
Fl7:double;
FS:double;
Fr:double;
Fh:double;
Fqulity:double;
public
constructor cteate(Ftype:double);override;
property d1:double read Fd1 write Fd1;
property l1:double read Fl1 write Fl1;
property l2:double read Fl2 write Fl2;
end;
我在编写上述的类时系统提示:“forward或extern有误",请问如何解决?????
public
constructor cteate(Ftype:double);virtual;
end;
Trailwayaxies= class(Taxies)
private
Ftype:string;
Fd1:double;
Fd2:double;
Fd3:double;
Fd4:double;
Fd5:double;
Fd6:double;
Fl1:double;
Fl2:double;
Fl3:double;
Fl4:double;
Fl5:double;
Fl6:double;
Fl7:double;
FS:double;
Fr:double;
Fh:double;
Fqulity:double;
public
constructor cteate(Ftype:double);override;
property d1:double read Fd1 write Fd1;
property l1:double read Fl1 write Fl1;
property l2:double read Fl2 write Fl2;
end;
我在编写上述的类时系统提示:“forward或extern有误",请问如何解决?????
implementation{$R *.dfm}
//加上下面代码,原因是只是定义了构造函数,没有实现部分{ Taxies }constructor Taxies.cteate(Ftype: double);
beginend;{ Trailwayaxies }constructor Trailwayaxies.cteate(Ftype: double);
begin
inherited;end;
比如
implementationconstructor TAxies.Create(Ftype : Double);
begin
...
end;constructor TRailWayAxies.Create(Ftype : Double);
begin
...
end;就行了
没有实现
呵呵在Interface或类内部的声明的方法都是forward申明
必须提供实现