, (* getparametervalue, getparametervalue vil vende tilbage til den værdi, der er forbundet med en parameter navn i form af /paramname: paramvalue, - paramname: paramvalue og /paramname, - paramname, paramname - navn af parametre (paramname), switchchars - parameter skifte identifikatorer (og /eller -), seperator - char, der sidder mellem paramname og paramvalue (:), værdi - værdien af den parameter (paramvalue), hvis en sådan findes, udbytte - boolean, hvis den parameter, blev fundet, falske, hvis parameter ikke eksisterer, typiske anvendelse, parameter - p = c: ¶ - ¶ - s, getparametervalue (»p«, ["/", "- -" "= =", svalue), svalue vil indeholde c: ¶ - ¶, *), funktion getparametervalue (denne paramname: string. switchchars: tsyscharset;, seperator: char, var værdien: string): boolean;, var jeg, sep: longint;, s: snor, begynder, resultat: = falske, værdi: = sblank; for jeg: = 1 til paramcount kan begynde, s = paramstr (i), hvis længde (r) > 0, hvis s [1] switchchars så begynde, sep: = producentorganisationer (seperator, s); sag sep, 0: begynder, hvis comparetext (eksemplar (er), længde (s) - 1), paramname) = 0 så begynder, resultat: = sandt;, bryde;,;,;, 1... maxint: begynder, hvis comparetext (eksemplar (er), sep - 2), paramname) = 0, begynder,værdi: = kopi (s, sep + 1, længde (s), resultat: = sandt;, bryde;,;,;,; //,,,,,,,,