在做元件时怎样加入Items属性(十万火急)

Question

  private
    FItems : TString;
  protected  public
    property Items: Tstring read Fitems write FItems;
    end;

Answer 1

 
  private
    FItems : TStringList;
  protected  public
    property Items: TstringList read Fitems write FItems;
    end;  

Answer 2

看看TComboBox，它是这样做的：Txxx=class(TWinControl)
private
    FItems: TStrings;
    procedure SetItems(Value: TStrings);
    //……
published
    property Items: TStrings read FItems write SetItems;
    //……
end;//Implementationprocedure Txxx.SetItems(Value: TStrings);
begin
  Items.Assign(Value);
end;