property怎么用？

Question

type  TTradeHead = class
  private
    FTotalAmount: double;     //交易金额
    FTotalQuantity: Integer;  //交易数量
    procedure SetTotalAmount(const Value: double);
    procedure SetTotalQuantity(const Value: Integer);
  public
    constructor create(head:String);
    property TotalQuantity: Integer read FTotalQuantity write SetTotalQuantity;
    property TotalAmount: double read FTotalAmount write SetTotalAmount;
  end ;
procedure TTradeHead.SetTotalAmount(const Value: double);
begin
  FTotalAmount := Value;
end;procedure TTradeHead.SetTotalQuantity(const Value: Integer);
begin
  FTotalQuantity := Value;
end;请帮忙详细介绍一下这段语句中的property和constructor create(head:String)是怎么用的
我在DELPHI的帮助文件里没有找到它的说明内容

Answer 1

create构造函数,只是传入了一个参数
property属性,直接赋值就可以啦...
var
 TradeHead: TTradeHead;
begin
 TradHead := TTradeHead.Create('Test');
 TradHead.TotalAmount := 520;
end;

Answer 2

你需要实现SetTotalQuantity，SetTotalAmount对FTotalQuantity ，FTotalAmount 赋值（write），然后程序取TotalQuantity，TotalAmount的值的时候就是读(read)FTotalQuantity ，FTotalAmount的值