, Delphi. Indien de waarde van de parameters is heel eenvoudig, heb je paramstr en de functie van paramcount werken, is er een findcmdlineswitch functie zal het je vertellen als een parameter worden gebruikt.,, maar als je een parameter,,,,, dan paramvalue /paramName:, de volgende functies zal nuttig wanneer de waarde van deze parameters worden.,,,,, (* * * * * * * getparametervalue, getparametervalue parameters om de terugkeer van de waarde van de vorm en de naam,,,, - paramName:paramvalue /paramName:paramvalue,,,,,,,, /paramName - paramName,,,,, paramName parameters (naam, paramName), switchchars parameters (/- identificatiecode - kool of).Sits tussen de paramname en paramvalue (:), is -, de waarde van de parameter (paramvalue) als het bestaat,,, - waar is terug, als de parameter die werd gevonden, maar die is niet vals als,,,,, een typische usage,,,,,, - -P=c:\\temp\\, GetParameterValue ("P". ['/''-'],,, "=, sValue);,,, sValue zal bevatten c:\\temp\\,,, * * * * * * *), de functie, GetParameterValue (totaal ParamName: touw; SwitchChars: TSysCharSet;,, Seperator: Char; var waarde string): booleaanse;,,, I, Sep: var, Longint;,,,, - string." resultaat:,,,, waarde: = valse; = ";,,, voor I: = 1 te ParamCount doen, beginnen, S = ParamStr (i);,, als lengte (s)% GT% 0 dan, als S[1] in SwitchChars Dan,",,,De producentenorganisaties, SEP:= (- s);,,, gevallen van SEP,,,,,, - 0: als comparetext (replicatie (s, 2, lengte (s) - 1), paramName) = 0, en dan begon, resultaten: = echt;,,,, aan het einde van de Rest van de laatste,;;,,,,,, de gehele waarde 1, de grootste: begin, als comparetext (replicatie (s, 2, in september (2), paramName) = 0, en dan begon, waarde: = replicatie (s, SEP + 1, lengte (s)); De resultaten:,,,,, = waar; aan het einde van het,,,,,,, aan het einde van het; ///////;,,,,, aan het einde van het einde van het,,,,,,,, vernieuwing, op 3 juni, 27.