Handbook's 016:delphi Open array

To develop an array, the parameter is slice with the Const qualifier, which is the array member that takes the partial length. You can also directly use the [] method to pass the parameter

The code is as follows:

UnitUnit1;Interfaceuseswinapi.windows, Winapi.messages, System.sysutils, System.variants, system.classes, Vcl.graphics, Vcl.Controls, Vcl.forms, Vcl.dialogs, Vcl.stdctrls;typeTForm1=class(tform) Memo1:tmemo;    Button1:tbutton; procedureButton1Click (Sender:tobject); Private    {Private Declarations}   Public    {Public Declarations}  End;varForm1:tform1;Implementation{$R *.DFM}usesSystem.Diagnostics, System.Math;typetdays=Array  ofInteger;//function DefinitionprocedureShowopenarrays (ConstAarrayint:Array  ofInteger);varI:integer;begin   forI: = Low (Aarrayint) toHigh (Aarrayint) Do  beginForm1.Memo1.Lines.Add ('Open Array ['+ i.tostring +'] := '+aarrayint[i].tostring); End;End;//TimingprocedureTform1.button1click (sender:tobject);varM_arrayint:Array[0..2] ofInteger;beginm_arrayint[0] :=6; m_arrayint[1] :=8; m_arrayint[2] := A; //Slice to take part of an array memberShowopenarrays (Slice (M_arrayint,2)); Showopenarrays ([ -, -,520]);End;End.

Handbook's 016:delphi Open array