Warte mal, dann braucht man doch nur zwei Funktionen: 'HasParameter' und 'GetParameter'. Fertig. 'GetParameter' wirft eine
Exception, wenn der Parameter nicht zu finden ist und das Defaultzeugs kann man sich zusammenbauen:
Delphi-Quellcode:
Function GetOptionalParameter (const aText, aParam, aDefault : String) : String;
Begin
if HasParameter (aParam, aText) then
result := GetParameter (aText, aParam)
else
result := aDefault;
End;
So isses chön, ne?