Get paramètres de ligne de commande

(* GetParameterValue

GetParameterValue sera de retour la valeur associée à un nom de paramètre sous la forme de

/ paramname: paramvalue
-paramname: paramvalue

et

/ paramname
-paramname

Paramname - Nom du paramètre (paramname)
SwitchChars - changer les identificateurs de paramètres (/ ou -)
Seperator - Le char qui se trouve entre paramname et paramvalue (:)
Valeur - La valeur du paramètre (paramvalue) si elle existe

Returns - booléenne, true si le paramètre a été trouvé, false si le paramètre n'existe pas

usage typique

Paramètre
-P = c: \ temp \
-S

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

sValue contiendra c: \ temp \

*)
GetParameterValue fonction (const paramname: string; SwitchChars: TSysCharSet;
Seperator: Char; var Valeur: string): Boolean;
var
I, Sep: longint;
S: string;
commencer
Résultat: = False;
Valeur: = sBlank;

pour I: = 1 à ParamCount faire
commencer
S: = ParamStr (I);
si longueur (S)> 0 alors
si S [1] puis en SwitchChars
commencer
Sep: = Pos (Seperator, S);

Sept cas de
0:
commencer
si CompareText (Copy (S, 2, Length (S) -1), paramname) = 0 alors
commencer
Résultat: = True;
Break;
fin;
fin;
1 .. MaxInt:
commencer
si CompareText (Copy (S, 2, sept. -2), paramname) = 0 alors
commencer
Valeur: = Copy (S, septembre + 1, Length (S));
Résultat: = True;
Break;
fin;
fin;
fin / / cas
fin;
fin;
fin;