随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253


//获取程序参数
//可从 Project -> Options -> Debugger -> Parameters 中输入模拟参数, 多个参数可用空格隔开
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to ParamCount do
  begin
    ListBox1.Items.Add(ParamStr(i));
  end;
end;

posted on 2009-03-11 20:38  万一  阅读(...)  评论(...编辑  收藏