uheadlines.pas

来自「自己写的一个 RSS 阅读器」· PAS 代码 · 共 52 行

unit uHeadLines;

interface
uses Classes;

type  
  THeadLines = class(TComponent)
  private
    FItems:array of THeadLineItems;
  public

    constructor Create(AOwner:TComponent);override;
    Destructor  Destroy; override;
    function AddItem:THeadLineItems;
    procedure DeleteItem(index:Integer);
    function GetItem(index:Integer):THeadLineItems;
    property Item[Index:integer]:THeadLineItems read GetItem;
  end;

implementation

constructor THeadLines.Create(AOwner:TComponent);
begin
  inherited Create(AOwner);
  SetLength(FItems,0);
end;

destructor THeadLines.Destroy;
begin
  SetLength(FItems,0);
  inherited Destroy;
end;

function THeadLines.AddItem:THeadLineItems;
begin
  SetLength(FItems,Length(FItems)+1);
  Result:=FItems[Length(FItems)-1];
  Result.Deleted:=False;
end;

procedure THeadLines.DeleteItem(index:Integer);
begin
  FItems[index].Deleted:=true;
end;

function THeadLines.GetItem(index:Integer):THeadLineItems;
begin
  Result:= FItems[index];
end;

end.