12 lines
223 B
ObjectPascal
12 lines
223 B
ObjectPascal
|
procedure Output(params arr: array of object);
|
||
|
|
begin
|
||
|
|
foreach var obj in arr do
|
||
|
|
Println(obj);
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
Output(1,2.5,'z','PascalABC.NET');
|
||
|
|
var a: array of object := (1,2.5,'z','PascalABC.NET');
|
||
|
|
Output(a);
|
||
|
|
end.
|