Schöner ist das Überprüfen mittels FindCmdLineSwitch. Dann muss man die Schleife nicht selbst implementieren und kann auf bestimmte Chars als Parameter prüfen (z.B. / - etc.). Außerdem kann man Griß-/Kleinschreibung ignorieren.
Delphi-Quellcode:
type TSysCharSet = set of Char;
function FindCmdLineSwitch(const Switch: string; SwitchChars: TSysCharSet; IgnoreCase: Boolean): Boolean;
Beispiel:
Delphi-Quellcode:
var sc: TSysCharSet;
begin
sc:=['/','-','|'];
if FindCmdLineSwitch('help',sc,True) then
{ .. Parameter ist da }