比如我定义一个类:
DFile = class(TObject)
public
bDay: Boolean= true; //默认值为true,格式错误..不知道该怎么写,有不想在create()中写
Constructor Create();
end;怎么办?
DFile = class(TObject)
public
bDay: Boolean= true; //默认值为true,格式错误..不知道该怎么写,有不想在create()中写
Constructor Create();
end;怎么办?
DFile = class(TObject)
public
bDay: Boolean;
Constructor Create();
end;{ DFile }constructor DFile.Create;
begin
bDay:=true;
inherited;
end;
DFile = class(TObject)
private
FbDay: Boolean;
procedure SetbDay(const Value: Boolean);
public
Constructor Create();
property bDay: Boolean read FbDay write SetbDay default true; end;
事实上,Delphi也都是这么做的,看看他的源码!