这个类怎么写(50)

自定义了一个结构体：Type MyRecord = record s1, s2: integer; s3: string; end; TCusClass = Class(TObject) ... ... end;我想将MyRecord类型变量存储到TCusClass类型的对象中，并可以从该对象中任意删除，增加MyRecord类型的变量，这个类可以存储多个MyRecord类型的变量，该怎么做

TCusClass从TList继承，改写Add函数，代码为：Type MyRecord = record s1, s2: integer; s3: string; end; PMyRecord = ^MyRecord-----------------------------------add函数：var tMyRecord;begin new(t); t^:= 传入参数 inherited add(t);end;---------------继承这个函数procedure Notify(Ptr: Pointer; Action: TListNotification); override;begin if Action=lnDeleted then dispose( PMyRecord(Ptr) ); inherited;end;

接受答案了.