TSetOption

type TSetOption = class(TValueOption)

protected

  FPossibleValues: TStringList;

  FValues: TStringList;

  function GetPossibleValues;

  procedure SetPossibleValues();

  function CheckValue(); override;

  function GetValues;

  procedure SetValues();

public

  property PossibleValues: string; [rw]

  constructor CreateEx(); override;

  destructor Destroy; override;

  function HasValue();

  property Values: string; [rw]

end;

TSetOption

TValueOption

TOption

TObject