コマンドライン引数の取得

何の芸も必要なく、数はParamCount、引数はParamStr関数でいい。

var
i: Integer;
begin
for i := 0 to ParamCount do
Writeln(ParamStr(i));

if(DebugHook <> 0)then
Readln;
end;

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です