sample - array read.pas

来自「East make Tray Icon in delphi」· PAS 代码 · 共 6 行

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