cmdline.pas

来自「一个delphi使用的传送短信(SMS)到GSM手机的单元及示范.」· PAS 代码 · 共 63 行

unit CmdLine;
{$A-,F+,O+,B-,V-,X+}

{ Copyright (c) 1993 by MandySoft }

interface

const
  WhereCmd:Integer=0;

const
  clCaseSensitive=$1;
  clUpCase=$2;
  clLoCase=$4;
  clNext=$8;

  PrefixChars=['/','-'];

function GetCmdString(Cmd:string; Option:Word; var S:string):Boolean;
function IsThereCmd(Cmd:string; Option:Word):Boolean;

implementation
uses AuxStr;

function IsThereCmd;
var Flag:Boolean;
    S:string;
begin
if (Option and clNext)=0 then WhereCmd:=1;
Flag:=True;
if (Option and clCaseSensitive)=0 then Cmd:=UpString(Cmd);
while Flag and (WhereCmd<=ParamCount) do
  begin
  S:=ParamStr(WhereCmd);
  if S[1] in PrefixChars
    then begin
         if Cmd<>'' then
           begin
           if (Option and clCaseSensitive)=0 then Flag:=Cmd<>UpString(Copy(S,2,Length(Cmd)))
                                             else Flag:=Cmd<>Copy(S,2,Length(Cmd));
           end
         end
    else Flag:=Cmd<>'';
  if Flag then Inc(WhereCmd);
  end;
IsThereCmd:=not Flag;
end;

function GetCmdString;
var Flag:Boolean;
begin
Flag:=IsThereCmd(Cmd,Option);
if Flag then
  begin
  S:=ParamStr(WhereCmd);
  if Cmd<>'' then Delete(S,1,1+Length(Cmd));
  if (Option and clUpCase)<>0 then S:=UpString(S)
                              else if (Option and clLoCase)<>0 then S:=LoString(S);
  end;
GetCmdString:=Flag;
end;

end.