ParamCount函数
System
function ParamCount:Integer;
ParamCount返回传给命令选行的参数个数。分开的参数以空格或制表格分开。使用双引号来包含多个元素作为一个参数(像长文件名包含了空格)。
begin
if ParamCount=0 then
Canvas.TextOut(10,10,’No parameters on command line’)
else
Canvas.TextOut(10,10,IntToStr(ParamCount)+’ parameter(s)’);
end;
System
function ParamStr(Index:Integer):string
ParamStr从命令行中返回一个指定的参数。Index是一个整型类表达式。ParamStr从Index对应的命令行返回参数,或者如果Index是大于ParamCount,则Index视为一个空字符串。例如:一个Index为2的值,返回第二个命令行参数。ParamStr(0)返回执行程序的路径和文件名(例如,C:/Test/myprog.exe)。
var
I:Word;
Y:Integer;
begin
Y:=10;
for I:=1 to ParamCount do
begin
Canvas.textout(5,y,paramstr(i));
Y:=y+Canvas.textHeight(ParamStr(i))+5;
end;
end;