TOvcUserData

type TOvcUserData = class(TObject)

protected

  FUserCharSets: TUserCharSets;

  FForceCase: TForceCase;

  FSubstChars: TSubstChars;

  function GetForceCase();

  function GetSubstChar();

  function GetUserCharSet();

  procedure SetForceCase();

  procedure SetSubstChar();

  procedure SetUserCharSet();

public

  constructor Create;

  property ForceCase []: TCaseChange; [rw]

  property SubstChars []: AnsiChar; [rw]

  property UserCharSet []: TCharSet; [rw]

end;

TOvcUserData

TObject