sample - array as parameter.pas

来自「最新版 JCL+JVCL控件！非常不错的控件资源。包含了所能用到的大部分功能！」· PAS 代码 · 共 21 行

// This script not working !
// Arrays as parameters not supported now....
// Sorry....

unit cray;

function main: string;
var
  A: array[1..10] of integer;
begin
  InitArray(A);
  //Result := A[4];
end;

procedure InitArray(var A: _array);
begin
  //A[4] := '!';
end;

end.