s2.tools.ts2recordlist.pas

轉載的程序應用框架

unit S2.Tools.TS2RecordList;

interface

uses
  S2.Tools.TS2Dict, S2.Tools.IS2RecordList, S2.Tools.IS2Record, S2.Tools.TS2DictItem;

type
  TS2RecordList = class(TS2Dict, IS2RecordList)
  public  //  S2.Tools.IS2RecordList
    function GetRecordCount: Integer;
    function GetRecord(const Index: Integer): IS2Record;
    procedure AddRecord(Value: IS2Record);  
  end;

implementation

uses
  SysUtils, S2.Tools.TS2Record;

{ TS2RecordList }

procedure TS2RecordList.AddRecord(Value: IS2Record);
begin
  Add(TS2DictItem.Create(TObject(Value), IntToStr(GetCount)));
end;

function TS2RecordList.GetRecord(const Index: Integer): IS2Record;
begin
  Result := TS2Record(Find(IntToStr(Index)));
end;

function TS2RecordList.GetRecordCount: Integer;
begin
  Result := GetCount;
end;

end.