tintegerdatalist

type tintegerdatalist = class(tdatalist)

public

  min: Integer;

  max: Integer;

  notcheckedvalue: Integer;

  constructor create; override;

  class function datatype; override;

  function empty(); override;

  function add();

  procedure insert();

  procedure number();

  function find();

  procedure fill();

  function getastext(); override;

  procedure setastext(); override;

  property asarray: integerarty; [rw]

  property asbooleanarray: booleanarty; [rw]

  property items []: Integer; default; [rw]

end;

tintegerdatalist

tdatalist

tlinkedpersistent,iobjectlink

tnullinterfacedpersistent,iunknown

tvirtualpersistent

tpersistent

TObject