delphi泛型实现的接口

type
  TRest<T: record> = record
    resource: string;
    where: string;
    function select: T;
    procedure insert(const aRecord: T);
    procedure update(const aRecord: T);
    procedure delete(const aRecord: T);
  end;