sample - array read.pas

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

var
  A: array[1..10] of integer;
begin
  Result := A[10];
end;