crosslang2.pp

来自「Delphi脚本控件」· PP 代码 · 共 18 行

program Demo;
var
  A, B: Variant;
begin
  A := paxJavaScriptNamespace.Array.Create(10, 20, 30);
  println A;
  println A.length;
  A[10] := 100;
  A.push(110);
  println A;
  println A.length;
  
  B := paxJavaScriptNamespace.Object.Create();
  B.NewProp := 'abc';
  println B.NewProp;
end.