tcurrencydatalist

type tcurrencydatalist = class(tdatalist)

public

  constructor create; override;

  class function datatype; override;

  function empty(); override;

  function add();

  procedure insert();

  function find();

  procedure fill();

  function getastext(); override;

  procedure setastext(); override;

  property asarray: currencyarty; [rw]

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

end;

tcurrencydatalist

tdatalist

tlinkedpersistent,iobjectlink

tnullinterfacedpersistent,iunknown

tvirtualpersistent

tpersistent

TObject