får parameterverdier med delphi er ekstremt lett, har du ParamStr og ParamCount funksjoner for å arbeide med, også er det FindCmdLineSwitch funksjon som vil fortelle deg om en bestemt parameter blir used.however hvis du bruker en parameter som /paramname: paramvaluethen følgende funksjon vil være nyttig når du får disse parameterverdier (* GetParameterValueGetParameterValue vil returnere verdien assosiert med et parameternavn i form av /paramname: paramvalue-paramname. paramvalueand /paramname-paramnameParamName - navn på parameter (paramname ) SwitchChars - parameter bryter identifikatorer (/eller -) Seperator - den røye som sitter mellom paramname og paramvalue (:) verdi - verdien av parameteren (paramvalue) hvis det existsReturns - Boolsk, sann hvis parameteren ble funnet, usann hvis parameter ikke existtypical usageParameter-p = c: \\ temp \\ -SGetParameterValue ( "p", [ '/', '-'] '=', Sverdi); Sverdi vil inneholde c: \\ temp \\ *) -funksjonen GetParameterValue (konst ParamName: string; SwitchChars: TSysCharSet; Seperator: Char; Var Verdi: string): Boolean, Var jeg, september: Longint; S: string; begynne Resultat: = False; Verdi: = ''; for jeg: = 1 til ParamCount gjøre begynne S: = ParamStr (I); hvis Lengde (S) > 0 da om S [1] i SwitchChars deretter begynne september: = Pos (Seperator, S); Ved 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, 2, september -2), ParamName) = 0 da begynne Verdi: = Kopier (S, september + 1, Lengde (S)); Resultat: = true; Gå i stykker; slutt; slutt; slutt; //Saken ende; end, end, oppdatert 27.11.03