tests/webtbs/tw0900.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

program Test;

uses strings;

var Str1 : PChar;

begin
  GetMem(Str1,256);
  StrPCopy (Str1, ParamStr(0));
  writeln ('Arg 0 is "',Str1,'"');
  StrPCopy (Str1, ParamStr(1));
  writeln ('Arg 1 is "',Str1,'"');
  FreeMem(Str1,256);
end.