L'obtention de valeurs de paramètres - mise à jour

L'obtention de valeurs de parametres - mise a jour

L'obtention de valeurs de parametres - mise a jour : Plusieurs milliers de conseils pour vous faciliter la vie.

Pour les valeurs de parametre avec delphi est tres facile, vous avez le ParamStr et ParamCount fonctions pour travailler avec, il y a aussi FindCmdLineSwitch fonction qui va vous dire si un certain parametre est utilise.
toutefois, si vous utilisez un parametre comme la
/paramname:paramvalue
alors la fonction suivante sera utile lors de l'obtention de ces valeurs de parametre.
(* GetParameterValue
GetParameterValue retourne la valeur associee a un parametre de nom sous la forme de
/paramname:paramvalue
-paramname:paramvalue

/paramname
-paramname
ParamName - Nom du parametre (paramname)
SwitchChars - commutateur de Parametre (identifiants/ ou -)
Separateur - Le char qui se trouve entre paramname et paramvalue (:)
Valeur - La valeur du parametre (paramvalue) si elle existe
Retourne - valeur Booleenne, true si le parametre a ete trouve, false si le parametre n'existe pas
utilisation typique
Parametre
-P=c:\temp\
-S
GetParameterValue('p', ['/', '-'], '=', sValue)
sValue contiendra c:\temp\
*)
fonction de GetParameterValue(const ParamName: string SwitchChars: TSysCharSet
& nbsp & nbsp element de separation: Char var Value: string): Boolean
var
& nbsp & nbsp I, Sep: Longint
& nbsp & nbsp S: string
begin
& nbsp & nbsp Resultat := False
& nbsp & nbsp Valeur := '
& nbsp & nbsp for I := 1 a ParamCount ne
& nbsp & nbsp commencer
& ! & ! & ! & nbsp S := ParamStr(I)
& ! & ! & ! & nbsp si la Longueur(S) > 0, alors
& ! & ! & ! & ! & ! & nbsp si S[1] dans SwitchChars puis
& ! & ! & ! & ! & ! & nbsp commencer

& ! & ! & ! & ! & ! & ! & ! & nbsp Sep := Pos(element de separation, S)
& ! & ! & ! & ! & ! & ! & ! & nbsp cas de Sep de
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp 0:
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp si CompareText(Copie(S, 2, Longueur(S) -1), ParamName) = 0, alors
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Resultat := True
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Pause
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp 1..exemple maxint:
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp si CompareText(Copie(S, 2, Sep -2), ParamName) = 0, alors
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Valeur := Copy(S, Sep 1, Longueur(S))
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Resultat := True
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Pause
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & ! & ! & nbsp fin //
& ! & ! & ! & ! & ! & nbsp fin
& nbsp & nbsp fin
fin

mis a jour le 27 Nov 03