数据结构定义 ( 积分: 50 )

需要定义一个数据结构，它包含一个字符，一个整型数字，一个字符列表
type
dx=record
Viewname:string;
Colorindex:integer;
Yyrnames:TStringList;
end;
这个是组成的一个单位，它本身是一个列表
type
dxlist=record
count:integer;
arrdx:array of dx;
end;
如何用类来定义它呢，我需要对这个数据进行赋值，控制

type
TDx= class(TPersistent)
private
FViewName: String;
FColorIndex: Integer;
FYyrNames :TStringList;
public
property VierName: String read FVierName write FVierName;
{同理....FYyrNames 初始化略}
end;
{第二个类}
TDxList = class(TPersistent)
private
FCount: Integer;
FDx :TDx;
function GetDx(Index: Integer): string;
procedure SetDx(Index: Integer; sDx:TDx);
public
property Count :Integer read FCount write FCount;
property Dx[Index: Integer]:TDx read GetDx write SetDx;
end;
实现部分...

LS正解
不过我建议 TDxList 继承 TList 有些更方便点

嗯，themars提议很好

谢谢，我去实践一下