Obter parâmetros de linha de comando

(* GetParameterValue

GetParameterValue irá retornar o valor associado a um parâmetro nome na forma de

/ paramname: paramvalue
-paramname: paramvalue

e

/ paramname
-paramname

ParamName - Nome do parâmetro (paramname)
SwitchChars - Parâmetro alternar identificadores (/ ou -)
SEPERATOR - O char que se sente entre paramname e paramvalue (:)
Valor - O valor do parâmetro (paramvalue), se existir

Retorna - Booleano, verdade se o parâmetro foi encontrado, falso se não existe parâmetro

típicos de utilização

Parâmetro
-P = c: \ temp \
-S

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

sValue irá conter c: \ temp \

*)
função GetParameterValue (const ParamName: string; SwitchChars: TSysCharSet;
SEPERATOR: Char; var Valor: string): Boolean;
var
Eu, Set: Longint;
S: string;
começo
Resultado: = False;
Valor: = sBlank;

para I: = 1 para fazer ParamCount
começo
S: = ParamStr (I);
se Length (S)> 0, em seguida,
Se S [1], em seguida SwitchChars
começo
Set: = Pos (Seperator, S);

Sep caso de
0:
começo
se CompareText (Copy (S, 2, Length (S) -1), ParamName) = 0 então
começo
Resultado: = True;
Break;
final;
final;
1 .. MaxInt:
começo
se CompareText (Copy (S, 2, Set -2), ParamName) = 0 então
começo
Valor: = Copy (S, Set + 1, Length (S));
Resultado: = True;
Break;
final;
final;
final; / / caso
final;
final;
final;