TResEvalSet

type TResEvalSet = class(TResEvalRangeInt)

public

const

  MaxCount = $ffff

public

type

  TItem = record

  RangeStart: TMaxPrecInt;

  RangeEnd: TMaxPrecInt;

end;

  TItems = array of TItem;

public

  Ranges: TItems;

  constructor Create; override;

  constructor CreateEmpty();

  constructor CreateEmptySameKind();

  constructor CreateValue(); override;

  function Clone; override;

  function AsString; override;

  function TypeAsString; override;

  function Add();

  function IndexOfRange();

  function Intersects();

  procedure ConsistencyCheck;

end;

TResEvalSet

TResEvalRangeInt

TResEvalValue

TResolveData

TPasElementBase

TObject