泛型_Tlist存储对象

1、创建窗口对象  TForm1 = class(TForm)

2、创建列表  List : TList<TBase>;

3、创建列表元素   Base : TBase;   

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Generics.Collections;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    rb1: TRadioButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TBase = class
  private
    a: Integer;
    b: Integer;
    Arr : Array[0..2] of Integer;
  protected
    function GetSum(index: Integer) :Integer;
    Procedure SetData(index: Integer; i: Integer);
    property data1: Integer index 0 read GetSum write SetData;
    property data2: Integer index 1 read GetSum write SetData;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TBase }

Procedure TBase.SetData(index: Integer; i: Integer);
begin
  Arr[index] :=i;
end;

function TBase.GetSum(index: Integer) :Integer;
var
  sum : integer;
begin
 Result := Arr[index] * 2;
 end;

procedure TForm1.Button1Click(Sender: TObject);
var
  List : TList<TBase>;
  Base : TBase;
  I : Integer;
begin
 // Memo1.Clear;
  List := TList<TBase>.Create;
  Base := TBase.Create;
  Base.data1 :=3;
  Base.data2 :=5;
  List.Add(Base);
  for I := 0 to List.Count - 1 do
  begin
  Memo1.Lines.Add(IntToStr(TBase(List[I]).GetSum(0)));
  Memo1.Lines.Add(IntToStr(TBase(List[I]).GetSum(1)));
  end;
  FreeAndNil(Base);
end;

end.