TsNumFormatList

type TsNumFormatList = class(TFPList)

  FOwnsData: Boolean;

  function GetItem();

  procedure SetItem();

protected

  FFormatSettings: TFormatSettings;

  FClass: TsNumFormatParamsClass;

  procedure AddBuiltinFormats; virtual;

public

  constructor Create();

  destructor Destroy; override;

  function AddFormat();

  procedure Clear;

  procedure Delete();

  function Find();

  property Items []: TsNumFormatParams; default; [rw]

end;

TsNumFormatList

TObject