Kommandozeilen-Parameter zu erhalten

Kommandozeilen-Parameter zu erhalten

Kommandozeilen-Parameter zu erhalten : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

(* GetParameterValue

GetParameterValue gibt den Namen eines Parameters in Form von zugeordneten Wert zurück.

/paramName:paramValue
Paramname-: Paramvalue

und

/paramName
Paramname-

ParamName - Name des Parameters (Paramname)
SwitchChars - Parameter Schalter Bezeichner (/)
Seperator - Char, der sitzt zwischen Paramname und Paramvalue (:)
Wert - den Wert des Parameters (Paramvalue) falls vorhanden

Retouren - Boolean, True, wenn der Parameter war gefunden, false, wenn der Parameter nicht vorhanden ist

typische Verwendung

Der Parameter
-P = C:\temp\
-S

GetParameterValue ('p', ['/', '-'], '=', sValue);

sValue enthält c:\temp\

*)
Funktion GetParameterValue (const ParamName: string; SwitchChars: TSysCharSet;
Seperator: Char; Var Value: String): Boolean;
var
Ich, Sep: Longint;
S: String;
beginnen
Ergebnis: = False;
Wert: = sBlank;

für I: = 1 ParamCount do
beginnen
S: = ParamStr(I);
Wenn Länge (S) > 0 dann
Wenn S [1] in SwitchChars dann
beginnen
Sep: = Pos (Seperator, S);

Fall von Sep
0:
beginnen
Wenn CompareText (Kopie (S, 2, Länge (S)-1) ParamName) = 0 then
beginnen
Ergebnis: = True;
Zu brechen;
Ende;
Ende;
1..MAXINT:
beginnen
Wenn CompareText (Kopie (S, 2, Sep-2) ParamName) = 0 then
beginnen
Wert: = Kopieren (S, Sep + 1, Length(S));
Ergebnis: = True;
Zu brechen;
Ende;
Ende;
Ende; Fall
Ende;
Ende;
Ende;