H
henryczh
Unregistered / Unconfirmed
GUEST, unregistred user!
各位兄弟,在demo的main form中有这样一段代码:
……
private
{ Private declarations }
FReport : TCustomQuickRep;
CreateListReport : TQuickRep;
procedure SetReport(Value : TCustomQuickRep);
public
{ Public declarations }
property Report : TCustomQuickRep read FReport write SetReport;
end;
implementation
procedure TfrmQR3Demo.SetReport(Value : TCustomQuickRep);
begin
FReport := Value;
if Value <> nil then
if Value = TCustomQuickRep(QRCompositeReport1) then
Description.Lines.Text := Composite_Description
else
Description.Lines.Assign(Report.Description);
end;
……(description 为一memo)
问题如下:1、声明为TCustomQuickRep,TQuickRep类有什么不同?
2、property Report : TCustomQuickRep read FReport write SetReport;
有什么作用?
特别是第二个问题还请高手赐教。
……
private
{ Private declarations }
FReport : TCustomQuickRep;
CreateListReport : TQuickRep;
procedure SetReport(Value : TCustomQuickRep);
public
{ Public declarations }
property Report : TCustomQuickRep read FReport write SetReport;
end;
implementation
procedure TfrmQR3Demo.SetReport(Value : TCustomQuickRep);
begin
FReport := Value;
if Value <> nil then
if Value = TCustomQuickRep(QRCompositeReport1) then
Description.Lines.Text := Composite_Description
else
Description.Lines.Assign(Report.Description);
end;
……(description 为一memo)
问题如下:1、声明为TCustomQuickRep,TQuickRep类有什么不同?
2、property Report : TCustomQuickRep read FReport write SetReport;
有什么作用?
特别是第二个问题还请高手赐教。