ParamStr / ParamCount mit leeren Parametern?

[ralfiii]

Hallo!

Ich hab grad feststellen müssen, dass ParamCount und ParamStr(i) nicht so richtig tun wie ich das gerne hätte.
Eine (Fremd-)Anwendung übergibt ein paar Parameter an meine.
Wenn ein Parameter leer bleibt, dann übergibt die Anwendung ganz brav Doppelte Anführungszeichen ("").
Nur: Delphi wirft die dann einfach weg.

D.h. ein Aufruf von
foo.exe Param1 "" "Param3" "" Param5
liefert ParamCount=3
ParamStr(1)=Param1
ParamStr(2)=Param3
ParamStr(3)=Param5

Das bei Param3 die umgebenden Anführungszeichen entfernt werden ist gut so, nicht aber, dass die leeren Parameter weggeworfen werden.
Unglücklicherweise sind die Anzahl und Position der Parameter nämlich essenziell für mich.

Gibt's da andere Methoden um das auszuwerten?

[s-off]

Du kannst Dir mit CmdLine den kompletten Aufruf ausgeben lassen, und dann selber parsen

[Blup]

Die Bedeutung der Parameter über die Position zu definieren ist kein guter Ansatz.

Besser etwas in diese oder ähnlicher Form:
foo.exe -Parametername:Wert -Parametername:Wert

[ralfiii]

Zitat:

Zitat von s-off

Du kannst Dir mit CmdLine den kompletten Aufruf ausgeben lassen, und dann selber parsen

:lol:
CmdLine kenn ich schon, ich will mir primär das selber-parsen sparen.

Schnell geraten scheint ExtractStrings + AnsiDeQuotedStr die Antwort auf meine Frage zu sein.
(Wenn jemand eine bessere Idee hat so möge er nun sprechen...)

[DeddyH]

Zitat:

Zitat von Blup

Die Bedeutung der Parameter über die Position zu definieren ist kein guter Ansatz.

Besser etwas in diese oder ähnlicher Form:
foo.exe -Parametername:Wert -Parametername:Wert

Zitat:

Zitat von ralfiii

Eine (Fremd-)Anwendung übergibt ein paar Parameter an meine.

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

[ralfiii]

Zitat:

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;

[DeddyH]

Wo gibst Du die Listen denn wieder frei?

[ralfiii]

Zitat:

Zitat von DeddyH

Wo gibst Du die Listen denn wieder frei?

Uups.
Extra ein Try und dann das Free vergessen. tststs....

[DeddyH]

Dafür hast Du ja noch uns :zwinker:

[Alter Mann]

Das setzt aber voraus, das in den Parametern keine Leerzeichen vorhanden sind.
Gibt es darfür eine Garantie?