ArrivareProspettiPartner parametri della riga di comando

(* GetParameterValue

GetParameterValue restituirà il valore associato a un parametro di nome in forma di

/ paramname: paramvalue
-paramname: paramvalue

e

/ paramname
-paramname

ParamName - Nome del parametro (paramname)
SwitchChars - Parametro passare identificatori (/ o -)
SEPERATOR - Il carattere che si siede tra paramname e paramvalue (:)
Rapporto - Il valore del parametro (paramvalue) se esiste

Resi - Booleano, true se il parametro è stato trovato, false se il parametro non esiste

tipico di utilizzo

Parametro
-P = c: \ temp \
-S

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

sValue conterrà c: \ temp \

*)
funzione GetParameterValue (const ParamName: string; SwitchChars: TSysCharSet;
SEPERATOR: Char; var Value: string): Boolean;
var
I set: Longint;
S: string;
iniziare
Risultato: = False;
Valore: = sBlank;

per la I: = 1 per fare ParamCount
iniziare
S: = ParamStr (I);
se Lunghezza (S)> 0 allora
se S [1] in poi SwitchChars
iniziare
Set: = Pos (SEPERATOR, S);

Set caso di
0:
iniziare
se CompareText (Copia (S, 2, Lunghezza (S) -1), ParamName) = 0 allora
iniziare
Risultato: = True;
Break;
fine;
fine;
1 .. MaxInt:
iniziare
se CompareText (Copia (S, 2, Sep -2), ParamName) = 0 allora
iniziare
Valore: = Copy (S + 1 Set, Lunghezza (S));
Risultato: = True;
Break;
fine;
fine;
fine / / caso
fine;
fine;
fine;