Obtener parámetros de línea de comandos

Obtener parametros de linea de comandos

Obtener parametros de linea de comandos : Multi-millones de consejos para hacer su vida mas facil.

(* GetParameterValue

GetParameterValue devolvera el valor asociado con un nombre de parametro en forma de

/paramname:paramvalue
-paramname:paramvalue

y

/paramname
-paramname

ParamName - Nombre del parametro (paramname)
SwitchChars - interruptor de Parametro identificadores (/ o -)
Separador - El char que se encuentra entre paramname y paramvalue (:)
el Valor de - El valor del parametro (paramvalue) si existe

Devuelve Booleano, true si el parametro se encontro, false si el parametro no existe

el uso tipico

Parametro
-P=c:/temp/
-S

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

sValue contendra c:/temp/

*)
funcion GetParameterValue(const ParamName: string SwitchChars: TSysCharSet
& nbsp Separador: Char var Value: string): Boolean
var
& nbsp I, Sep: Longint
& nbsp S: string
begin
& nbsp Resultado := False
& nbsp Valor := sBlank

& nbsp for I := 1 to ParamCount hacer
& nbsp empezar
& nbsp & nbsp & nbsp S := ParamStr(I)
& nbsp & nbsp & nbsp si la Longitud de la(S) > 0, entonces
& nbsp & nbsp & nbsp & nbsp & nbsp si S[1] en SwitchChars, a continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Sep := Pos(Separador, S)

& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp caso de la Sep, de
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp 0:
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si CompareText(Copia(S, 2, Length(S) -1), ParamName) = 0, entonces
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado := True
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Break
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp 1..MaxInt:
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si CompareText(Copia(S, 2, -2 Sep), ParamName) = 0, entonces
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Valor := Copy(S, Sep 1, Length(S))
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado := True
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Break
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final //caso
& nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp final
fin