ParamCount
darktemplar
ParamCount
Moduł: System
Przykład:
program Foo;
{$APPTYPE CONSOLE}
procedure Help;
begin
Writeln('Pomoc programu');
end;
procedure About;
begin
Writeln('O programie...');
end;
var
i : Integer;
begin
for I := 1 to ParamCount do
begin
if ParamStr(i) = 'help' then
Help;
if ParamStr(i) = 'about' then
About;
end;
end.
Jeżeli użytkownik uruchomi aplikacje z parametrem - np.:
Foo.exe help
Wówczas aplikacja odczyta parametr help
i w związku z tym - odpowiednio zareaguje (w tym wypadku - wywoła procedurę Help
).
Zobacz też: