Abrufen von Parameterwerten - aktualisiert

Abrufen von Parameterwerten - aktualisiert

Abrufen von Parameterwerten - aktualisiert : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Abrufen von Parameterwerten mit Delphi ist extrem einfach, Sie haben die Funktionen ParamStr und ParamCount, mit zu arbeiten, auch gibt es FindCmdLineSwitch-Funktion, die Ihnen sagen wird, wenn ein bestimmter Parameter verwendet wird.
jedoch wenn Sie einen Parameter wie verwenden
/paramName:paramValue
die folgende Funktion wird dann nützlich sein, wenn Sie diese Parameterwerte zu bekommen.
(* 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: = '';
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;

Aktualisiert am 27 Nov 03