Holen Sie sich Kommandozeilen-Parameter

(* GetParameterValue

GetParameterValue Rückkehr wird der Wert im Zusammenhang mit einem Parameter-Namen in der Form von

/ paramname: ParamValue
-paramname: ParamValue

und

/ paramname
-paramname

Paramname - Name des Parameters (paramname)
SwitchChars - Parameter wechseln Identifikatoren (/ oder -)
Seperator - Die Zeichen, dass sitzt zwischen paramname und ParamValue (:)
Value - Der Wert des Parameters (ParamValue), wenn er vorhanden ist

Liefert - Boolescher Wert, der Fall, wenn der Parameter gefunden wurde, false, wenn Parameter nicht vorhanden

typische Nutzung

Parameter
-P = c: \ temp \
-S

GetParameterValue ( 'p', ['/','-'], '=', sValue);

sValue wird c: \ temp \

*)
Funktion GetParameterValue (const paramname: string; SwitchChars: TSysCharSet;
Seperator: Char; var Value: string): Boolean;
var
I, Sep: Longint;
S: string;
beginnen
Result: = False;
Value: = sBlank;

for i: = 1 bis ParamCount tun
beginnen
S: = ParamStr (I);
wenn Länge (S)> 0 then
wenn S [1] in SwitchChars dann
beginnen
Sep: = Pos (Seperator, S);

Sep Fall der
0:
beginnen
wenn CompareText (Copy (S, 2, Länge (S) -1), paramname) = 0, dann
beginnen
Result: = True;
Break;
end;
end;
1 .. MaxInt:
beginnen
wenn CompareText (Copy (S, 2, Sep -2), paramname) = 0, dann
beginnen
Value: = Copy (S, Sep + 1, Länge (S));
Result: = True;
Break;
end;
end;
end; / / Fall
end;
end;
end;