ParamStr / ParamCount mit leeren Parametern?

[ralfiii]

Zitat von DeddyH:

Das klingt nicht so, als läge das in seiner Macht.

So ist es!
Simple Lösung:

Delphi-Quellcode:

function ExParamCount : integer;
var StrL: TStringList;
begin
     StrL:=TStringList.Create;
     try
        ExtractStrings([' '], [], CmdLine, StrL);
        result:=StrL.Count-1;
     finally
            StrL.Free;
     end;
end;

function ExParamStr(i : integer) : string;
var StrL: TStringList;
begin
     StrL:=TStringList.Create;
     try
        ExtractStrings([' '], [], CmdLine, StrL);
        if i>=StrL.Count
        then
            result:=''
        else
            result:=AnsiDeQuotedStr(StrL[i], '"');
     finally
            StrL.Free;
     end;
end;