TmnFields

type TmnFields = class(TmnCustomFields,IFields)

protected

  function CreateField; virtual;

  procedure SetValues();

  function GetValues();

  function GetIField();

  function GetCount;

public

  function QueryInterface();

  procedure LoadFromStream(); virtual;

  procedure SaveToStream(); virtual;

  procedure LoadFromFile();

  procedure SaveToFile();

  function AddItem(); overload;

  function Add();

  function Put(); overload;

  function IsExists();

  function FindField(); virtual;

  function FindByName();

  function IndexOfName();

  function RemoveByName();

  procedure Clean; virtual;

  property FieldByName []: TmnField; [r]

  property Field []: TmnField; [r]

  property Exists []: Boolean; [r]

  property Values []: Variant; default; [rw]

end;

TmnFields

TmnCustomFields,IFields

TObject