home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / zkuste / konfig / download / msic / Help / Int / MiTeC_Params.int < prev    next >
Encoding:
Text File  |  2003-08-26  |  867 b   |  34 lines
  1. unit MiTeC_Params;
  2.  
  3. interface
  4.  
  5. uses SysUtils, Classes, Windows;
  6.  
  7. type
  8.   TFindParamOption = (fpMatchCase, fpPartial);
  9.  
  10.   TFindParamOptions = set of TFindParamOption;
  11.  
  12.   TApplicationParameters = class
  13.   private
  14.     FParamList: TStringList;
  15.     function GetParamCount: Byte;
  16.     function GetParameter(Index: Byte): string;
  17.     procedure ReadParameters;
  18.     function GetCmdLine: string;
  19.     function GetIsNumber(Index: Byte): boolean;
  20.   public
  21.     constructor Create;
  22.     destructor Destroy; override;
  23.  
  24.     property Parameters[Index: Byte]: string read GetParameter;
  25.     property ParamIsNumber[Index: Byte]: boolean read GetIsNumber;
  26.     property ParamCount: Byte read GetParamCount;
  27.     property CommandLine: string read GetCmdLine;
  28.  
  29.     function IndexOf(Value: string; Options: TFindParamOptions = []): integer;
  30.   end;
  31.  
  32. implementation
  33.  
  34.