关于ParamCount函数(50分)

  • 主题发起人 主题发起人 andeuy
  • 开始时间 开始时间
A

andeuy

Unregistered / Unconfirmed
GUEST, unregistred user!
大家好

我不明白ParamCount函数的用法。它返回命令行参数的个数,但是哪些命令行是它访问
的对象呢?
谢谢大家!
 
ParamCount returns the number of parameters passed to the program on the command line. Separate parameters with spaces or tabs. Use double quotes to wrap multiple words as one parameter (such as long file names containing spaces).
 
for i := 1 to ParamCount do
begin
if LowerCase(ParamStr(i)) = 'beep' then
Beep
elseif LowerCase(ParamStr(i)) = 'exit' then
Application.Terminate;
end;
 
大家怎么这么不细心的教教人家啊:)
1。在Delphi下新建一个Application,然后在窗体的OnCreate事件中写入以下代码:
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := 0 to ParamCount-1 do
begin
if LowerCase(ParamStr(i)) = 'beep' then
ShowMessage(IntToStr(i))
else if LowerCase(ParamStr(i)) = 'exit' then
Application.Terminate;
end;
end;
2。编译运行该程序,生成Project1.exe文件;
3。开始-》运行,输入cmd,进入控制台后以Dos命令进入Project1.exe文件所在的目录;
4。键入“Project1 beep beep beep exit”,然后回车。
明白了吗?呵呵,我想不用再解释了吧:)
 
多人接受答案了。
 
后退
顶部