通过开放数组，获取动态数组的长度

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    btn1: TButton;
    mmo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
    FA1: array [0..9] of Integer;
    FA2: array of Integer;
    procedure ArrayCopy(var Des: array of Integer; const Src: array of Integer);
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.ArrayCopy(var Des: array of Integer;
  const Src: array of Integer);
var
  Size: Integer;
begin
  Size := SizeOf(Src);
  mmo1.Lines.Add(Format('SizeOf(Src) is %d', [Size]));          //SizeOf(Src) is 40  虽然实参是动态数组，但此处依然可以获取数组的长度
  Move(Src[0], Des[0], Size);
end;


procedure TForm2.btn1Click(Sender: TObject);
begin
  ArrayCopy(FA1, FA2);                                          //FA1[9] is 9
  mmo1.Lines.Add(Format('FA1[9] is %d', [FA1[9]]));
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  SetLength(FA2, 10);
  mmo1.Lines.Add(Format('SizeOf(FA2) is %d', [SizeOf(FA2)]));   //SizeOf(FA2) is 4
  mmo1.Lines.Add(Format('SizeOf(FA1) is %d', [SizeOf(FA1)]));   //SizeOf(FA1) is 40
  FA2[9] := 9;
end;

end.