TJPCmdLineParser

type TJPCmdLineParser = class

public

  constructor Create;

  destructor Destroy; override;

  procedure ResetAll;

  procedure Parse;

  function ParamsAsString;

  function GetShortOptionIndex();

  function GetLongOptionIndex();

  function GetOptionIndex();

  function GetShortOptionValue();

  function GetLongOptionValue();

  function GetOptionValue();

  function GetOptionValues();

  function TryGetOptionValueAsBool();

  function IsShortOptionExists();

  function IsLongOptionExists();

  function IsOptionExists();

  procedure RegisterShortOption();

  procedure RegisterLongOption();

  procedure RegisterOption();

  function OptionsAsString;

  function OptionsUsageStr();

  procedure RegisterCommand();

  procedure AddCommand();

  function GetCommandIndex();

  function CommandExists();

  function CommandsAsString;

  function CommandsUsageStr();

  function GetStickedParamIndex();

  function StickedParamExists();

  function GetStickedParamValue();

  procedure RegisterStickedParam();

  function StickedParamsAsString;

  function GetOptionExtraInfoIndex();

  procedure SetOptionExtraInfo();

  function TryGetOptionExtraInfo();

  property UsageFormat: TClpUsageFormat; [rw]

  property RunTimeParamsStr: string; [r]

  property RunTimeParams []: string; [r]

  property RunTimeParamCount: Integer; [r]

  property ParsedParamCount: Integer; [r]

  property ParsedParam []: TClpParam; [r]

  property CommandLineParsingMode: TClpParsingMode; [rw]

  property StopParsingSwitch: string; [rw]

  property IgnoreCase: Boolean; [rw]

  property Errors []: TClpError; [r]

  property ErrorCount: Integer; [r]

  property ErrorsStr: string; [r]

  property OptionCount: Integer; [r]

  property Options []: TClpOption; [r]

  property AllowDuplicates: Boolean; [rw]

  property SkippedParams []: string; [r]

  property SkippedParamsCount: Integer; [r]

  property Commands []: TClpCommand; [r]

  property CommandCount: Integer; [r]

  property CommandPosition: Integer; [r]

  property CommandValue: string; [r]

  property StickedParams []: TClpStickedParam; [r]

  property StickedParamCount: Integer; [r]

  property UnknownParams []: TClpUnknownParam; [r]

  property UnknownParamCount: Integer; [r]

  property AcceptAllNonOptions: Boolean; [rw]

end;

TJPCmdLineParser

TObject