Có triển khai "getopt" cho Delphi không?

Question

Nó không dễ dàng hơn nhiều so với việc sử dụng getopt() để phân tích các tham số dòng lệnh trong C/C++.

Có điều gì tương tự với Delphi không? Hay lý tưởng, với cùng một cú pháp? Tôi biết Delphi hỗ trợ FindCmdLineSwitch và ParamStr(), nhưng vẫn yêu cầu một số phân tích cú pháp bổ sung.

Tôi muốn một cái gì đó hoạt động như getopt() trong C. Cái gì đó dễ dàng cho phép chuyển đổi cơ bản chuyển đổi, cũng như chụp một giá trị sau khi chuyển đổi. Xem dưới đây đối với một số mã ví dụ C để xem những gì tôi đang nói về:

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

Có một thực TGetOpt, tự xưng

thực hiện một biến thể getopt cho Delphi. Nó gần tương thích POSIX, hỗ trợ các tùy chọn dài, bắt buộc, tùy chọn và không có đối số

Bạn có thể tìm thấy nó here.

Answer 2

Không có gì được tích hợp sẵn - nhưng bạn có thể làm cho một thiết bị dễ dàng. Điều này cần được gần gũi với những gì bạn đang sử dụng để

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

Có những "Gastown Delphi Command Line Parser" mà gần đây đã được mã nguồn mở (ví dụ on Torry's). Tôi chưa bao giờ sử dụng nó, vì vậy tôi không thể bình luận về nó.

Answer 4

Điều gì sai về FindCmdLineSwitch trong đơn vị SysUtils?

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

bạn sẽ phải lặp qua các params để có được những giá trị, nhưng thats khá đơn giản để làm:

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

Các getopts.pp tập tin của FPC RTL là khép kín Delphi (Delphi2009 bao gồm) đơn vị tương thích triển khai getopt:

Triển khai Getopt cho Pascal miễn phí, được mô hình hóa sau GNU getopt

unit có sẵn tại kho FPC SVN.

Answer 6

Xem TCommandParser, được mô tả trong bài viết EDN http://edn.embarcadero.com/print/40404 này và có sẵn để tải xuống trên CodeCentral http://cc.embarcadero.com/item/27574. TCommandParser cũng nên được bao gồm trong bản demo Delphi bây giờ. Tôi đã tạo mã tự do cho Embarcadero trước khi tôi rời đi, vì vậy hy vọng chúng sẽ bao gồm nó trong khung công tác hoặc một cái gì đó giống như nó ở một thời điểm nào đó.

Answer 7

Ngoài ra còn có một trình phân tích cú pháp mới có tên là delphi-argparse có liên quan đến câu hỏi này.

Answer 8

Trình phân tích cú pháp dựa trên thuộc tính cho Delphi có thể được tìm thấy here.