, får parameterværdier med delphi er meget nemt, du har paramstr og paramcount funktioner til at arbejde med, og der er også findcmdlineswitch funktion, som vil fortælle dig, om en bestemt parameter anvendes.,, men hvis man bruger en parameter, som,,, /paramname: paramvalue,,, følgende funktion vil være nyttigt, når disse parameterværdier.,,, (* getparametervalue,,, getparametervalue vil vende tilbage til den værdi, der er forbundet med en parameter navn i form af... /paramname: paramvalue, - paramname: paramvalue,,,,,,, - paramname paramname,,,, paramname - navn af parametre (paramname), switchchars - parameter skifte identifikatorer (og /eller -), seperator - char -sits between paramname and paramvalue (:),, Value - The value of the parameter (paramvalue) if it exists,,, Returns - Boolean, true if the parameter was found, false if parameter does not exist,,, typical usage,,, Parameter,, -P=c:\\temp\\,, -S,,, GetParameterValue('p', ['/', '-'], '=', sValue);,,, sValue will contain c:\\temp\\,,, *),, function GetParameterValue(const ParamName: string; SwitchChars: TSysCharSet;,, Seperator: Char; var Value: string): Boolean;,, var,, I, Sep: Longint;,, S: string;,, begin,, Result := False;,, Value := '';,,, for I := 1 to ParamCount do,, begin,, S := ParamStr(I);,, if Length(S) > 0 then,, if S[1] in SwitchChars then,, begin, , sep: = producentorganisationer (seperator, s);,,, sep, 0:, begynder, hvis comparetext (eksemplar (er), længde (s) - 1), paramname) = 0, begynder, resultat: = sandt;,, pause,,,,,,,,, 1... maxint:, begynder, hvis comparetext (eksemplar (er), sep - 2), paramname) = 0, begynder, værdi: = kopi (s, sep + 1, længde (s), resultat: = sandt,,,,,,, bryde;,;,; //,,,,,,,,,,,,,, ajourført den 27. november 2003,