(* GetParameterValue
GetParameterValue vil returnere verdien assosiert med et parameternavn i form av Twitter /paramname: paramvalue -paramname: paramvalue
og /paramname -paramname
ParamName - Navn på parameter (paramname) SwitchChars - Parameter bryter identifikatorer (/eller -) seperator - Den røye som sitter mellom paramname og paramvalue (:) verdi - verdien av parameter (paramvalue) hvis den finnes
Returns - boolsk , sann hvis parameteren ble funnet, usann hvis parameter ikke eksisterer
vanlig bruk
Parameter -P = c: \\ temp \\ -S
GetParameterValue ("p", ['/', '-' ], '=', Sverdi);
Sverdi vil inneholde c: \\ temp \\ product: *) -funksjonen GetParameterValue (konst ParamName: string; SwitchChars: TSysCharSet; Seperator: Char; Var Verdi: string): boolske; Var jeg, september: Longint; S: string; begynne Resultat: = False; Verdi: = sBlank;
for jeg: = 1 til ParamCount gjøre begynne S: = ParamStr (I); hvis Lengde (S) > 0, så hvis S [1] i SwitchChars deretter begynne september: = Pos (Seperator, S);
tilfelle september fra 0: begynne hvis CompareText (Copy (S, 2, Lengde (S -1)), ParamName) = 0 da begynne Resultat: = true; Gå i stykker; slutt; slutt; 1..MaxInt: begynne hvis CompareText (Copy (S, to, sep -2), ParamName) = 0 da begynne Verdi: = Kopier (S, sep + 1, Lengde (S)); Resultat: = true; Gå i stykker; slutt; slutt; slutt; //saken ende; slutt; end;