1
{ It tests conversion from "array of char" to "array of PChar" }
3
function DoTest(params: array of PChar): string;
9
for i:=Low(params) to High(params) do
17
s:=DoTest(['1', '2', '3']);
18
if s <> '123' then begin
19
writeln('Test failed. S=', s);