program Param; {$APPTYPE CONSOLE} uses SysUtils; type pr = 0..3; const ps: array[pr] of string = ('/c', '/j', '/u', '/h'); pt: array[pr] of string = ('中国', '小日本', '美国', '香港'); var pf: array[pr] of boolean; i, p: LongInt; f: Boolean; begin if ParamCount = 0 then begin WriteLn('Useing'); Write('Param '); for i := Low(ps) to High(ps) do Write(ps[i], ' '); WriteLn('参数不分大小写'); end else begin FillChar(pf, SizeOf(pf), 0); for p := 1 to ParamCount do begin f := False; for i := Low(pr) to High(pr) do if SameText(ParamStr(p), ps[i]) then begin f := True; if not pf[i] then begin pf[i] := True; WriteLn(pt[i]); end; end; if not f then Writeln(ParamStr(p) + ' 为无效参数!') end; end; ReadLn; end.