qrept3 demo在pbulic中声明的一段代码,什么意思??(50分)

  • 主题发起人 主题发起人 henryczh
  • 开始时间 开始时间
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;
有什么作用?
特别是第二个问题还请高手赐教。
 
2.是在TfrmQR3Demo类中增加一个属性Report.储存当前选中的报表。
 
ericimex01:
你说的不甚清楚……不过,惭愧惭愧,原来我面前的一堆书里就有一本讲到属性的,
我都没仔细看过。另问一个小问题。
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;
TCustomQuickRep(QRCompositeReport1) 是什么作用?
我问的问题多了点,不过这等小问题就不想另开贴了:)
 
你看在参数列表中,value是TCustomQuickRep类型的变量。
所以TCustomQuickRep(QRCompositeReport1)是把QRCompositeReport1转化成TCustomQuickRep
类型后再跟value做比较。
 
接受答案了.
 
后退
顶部