Delphi 是否有“getopt”的实现？

Question

在 C/C++ 中使用 getopt() 解析命令行参数并不容易。

Delphi 有类似的东西吗？或者理想情况下，使用相同的语法？我知道 Delphi 支持 FindCmdLineSwitch 和 ParamStr()，但它们仍然需要一些额外的解析。

我想要像 C 中的 getopt() 一样工作的东西。可以轻松实现基本切换开关以及在切换后捕获值的东西。请参阅下面的一些示例 C 代码以了解我在说什么：

void print_help()
{
        printf("usage:\n") ;
        printf("\t\t-i set input file\n") ;
        printf("\t\t-o set output file\n") ;
        printf("\t\t-c set config file\n") ;
        printf("\t\t-h print this help information\n") ;
        printf("\t\t-v print version\n") ;
}
 char* input_file = NULL ;
        char *query=NULL;
          char opt_char=0;
        while ((opt_char = getopt(argc, argv, "i:q:vh")) != -1)
        {
                switch(opt_char)
                {
                        case 'h':
                                print_help();
                                exit(-1);
                                break;
                        case 'v':
                                print_version() ;
                                exit(-1) ;
                                break ;
                        case 'i':
                                input_file= optarg ;
                                break ;
                        case 'q':
                                query= optarg ;
                                break ;
                        default:
                                print_help();
                                exit(-1);
                                break;
                }
        }

Answer 1

有一个实现TGetOpt，号称

为 Delphi 实现一个 getopt 变体。它几乎与 POSIX 兼容，支持长选项、必需、可选和无参数

你可以找到它here。

Answer 2

没有内置 - 但你可以很容易地制作一个。这应该接近你的习惯

TsoCommandLineParser = class
private
  fArguments:TStringList;
public
  constructor Create();
  destructor Destroy(); override;

  function GetOpt(const pArgument:string; const pDefaultValue:string = ''):string;
end;


constructor TsoCommandLineParser.Create();
var
  i:Integer;
begin
  inherited Create();
  fArguments := TStringList.Create();
  for i := 1 to ParamCount() do
  begin
    fArguments.Add(ParamStr(i));
  end;
end;

destructor TsoCommandLineParser.Destroy();
begin
  fArguments.Free();
  inherited Destroy();
end;

function TsoCommandLineParser.GetOpt(const pArgument:string; const pDefaultValue:string = ''):string;
var
  i:Integer;
begin
  i := fArguments.IndexOfName(pArgument);
  if i > -1 then
  begin
    Result := fArguments.ValueFromIndex[i];
  end
  else
  begin
    Result := pDefaultValue;
  end;
end;

Answer 3

有最近开源的“Gastown Delphi 命令行解析器”（例如on Torry's）。没用过，无法评论。

Answer 4

SysUtils 单元中的 FindCmdLineSwitch 有什么问题？

if FindCmdLineSwitch('h',['-'],false) then
  Print_Help();
if FindCmdLineSwitch('v',['-'],false) then
  print_Version();

您必须循环通过参数来获取值，但这很简单：

if FindCmdLineSwitch('f',['-'],false) then
  for ix := 1 to paramcount do
    if (paramStr(ix) = '-f') and (ix < paramcount) then
      begin
        if fileExists( ParamStr(ix+1) ) then
          filename := ParamStr(ix+1);
        break;
      end

Answer 5

FPC RTL的getopts.pp文件是实现getopt的独立Delphi（包括Delphi2009）兼容单元：

Free Pascal 的 Getopt 实现， 仿照 GNU getopt

unit 在 FPC SVN 存储库中可用。

Answer 6

请参阅此 EDN 文章 http://edn.embarcadero.com/print/40404 中描述的 TCommandParser，并可在 CodeCentral http://cc.embarcadero.com/item/27574 上下载。 TCommandParser 现在也应该包含在 Delphi 演示中。在我离开之前，我将代码免费提供给 Embarcadero，所以希望他们会在某个时候将它包含在框架中或类似的东西中。

Answer 7

还有一个名为 delphi-argparse 的新解析器与此问题相关。

Answer 8

Delphi 的基于属性的解析器可以在here 找到。