mitec_params.int

来自「非常全面的计算机资源管理分析器」· INT 代码 · 共 34 行

unit MiTeC_Params;

interface

uses SysUtils, Classes, Windows;

type
  TFindParamOption = (fpMatchCase, fpPartial);

  TFindParamOptions = set of TFindParamOption;

  TApplicationParameters = class
  private
    FParamList: TStringList;
    function GetParamCount: Byte;
    function GetParameter(Index: Byte): string;
    procedure ReadParameters;
    function GetCmdLine: string;
    function GetIsNumber(Index: Byte): boolean;
  public
    constructor Create;
    destructor Destroy; override;

    property Parameters[Index: Byte]: string read GetParameter;
    property ParamIsNumber[Index: Byte]: boolean read GetIsNumber;
    property ParamCount: Byte read GetParamCount;
    property CommandLine: string read GetCmdLine;

    function IndexOf(Value: string; Options: TFindParamOptions = []): integer;
  end;

implementation