代码大全

{ find ‘$’in InputPtr }

{ find the command -- word terminator }

FindCommandWordTerminator()
Find$InInputString() CheckEachcharacterInInputStrUntilADollarsignIsFoundOrAllc
haractersHaveBeenChecked()

{ find the command-word terminator }

FoundTheEnd := False;

MaxCammandlength := Length( InputStr );

Idx := 1;

whi1e ( ( not FoundTheEnd ) and ( Idx <= MaxCommandLength ) )

begin

if ( InputStr[Idx] = COMMAND_WORD_TERMINATOR ) then

begin

FoundTheEnd := True;

EndOfCommand := Idx

end

else

Idx := Idx + 1

end;