Arrays 如何在没有数组变量的情况下传递值数组？

我已经建立了一个非常好的系统来向VirtualStringTree中添加列，因为旧的系统太庞大了

旧系统：

procedure TForm1.Button1Click(Sender: TObject);
begin
    VST.Header.Columns.Clear;
    VST.Header.Columns.Add.Text:='#';
    VST.Header.Columns.Add.Text:='First name';
    VST.Header.Columns.Add.Text:='Last name';
    VST.Header.Columns.Add.Text:='Address';

    VST.Header.Columns[0].Width:=50;
    VST.Header.Columns[1].Width:=200;
    VST.Header.Columns[2].Width:=200;
    VST.Header.Columns[3].Width:=500;
end;

SetColumns(VST.Header.Columns,('#','First name','Last name','Address'),(50,20,20,50));

具有3个附加过程的新系统，但执行过程中的代码要少得多：

设置字符串的全局数组中的列名

SetWidths-在整数的全局数组中设置列宽度

SetColumns-基于全局数组值创建列

var 
    gWidths:array of integer;
    gNames:array of string;

    procedure SetNames(vCount:integer; vA:string='';vB:string='';vC:string='';vD:string='';vE:string='';vF:string='';vG:string='';vH:string='';vI:string='';vJ:string='');
    begin
      SetLength(gNames,0);
      SetLength(gNames,vCount);
      If vCount>0 then gNames[0]:=vA;
      If vCount>1 then gNames[1]:=vB;
      If vCount>2 then gNames[2]:=vC;
      If vCount>3 then gNames[3]:=vD;
      If vCount>4 then gNames[4]:=vE;
      If vCount>5 then gNames[5]:=vF;
      If vCount>6 then gNames[6]:=vG;
      If vCount>7 then gNames[7]:=vH;
      If vCount>8 then gNames[8]:=vI;
      If vCount>9 then gNames[9]:=vJ;
    end;

    procedure SetWidths(vCount:integer; v1:integer=0;v2:integer=0;v3:integer=0;v4:integer=0;v5:integer=0;v6:integer=0;v7:integer=0;v8:integer=0;v9:integer=0;v10:integer=0);
    begin
      SetLength(gWidths,0);
      SetLength(gWidths,vCount);
      If vCount>0 then gWidths[0]:=v1;
      If vCount>1 then gWidths[1]:=v2;
      If vCount>2 then gWidths[2]:=v3;
      If vCount>3 then gWidths[3]:=v4;
      If vCount>4 then gWidths[4]:=v5;
      If vCount>5 then gWidths[5]:=v6;
      If vCount>6 then gWidths[6]:=v7;
      If vCount>7 then gWidths[7]:=v8;
      If vCount>8 then gWidths[8]:=v9;
      If vCount>9 then gWidths[9]:=v10;
    end;

    procedure SetColumns(vColumns:TVirtualTreeColumns; vNames:array of string; vWidths:array of integer);
    var i:integer;
    begin
      vColumns.Clear;
      for i := 0 to High(vNames) do
        vColumns.Add.Text:=vNames[i];

      for i := 0 to High(vWidths) do
        vColumns[i].Width:=vWidths[i];
    end;

有了这些全局阵列和3个新程序，我就可以做到这一点，非常简单、干净：

    procedure TForm1.Button2Click(Sender: TObject);
    begin
        VST.Header.Columns.Clear;

        SetNames(4,'#','First name','Last name','Address');
        SetWidths(4,50,20,20,50);
        SetColumns(VST.Header.Columns,gNames,gWidths);
    end;

问题：是否可以减少代码，跳过全局数组和额外的过程，例如：

procedure TForm1.Button1Click(Sender: TObject);
begin
    VST.Header.Columns.Clear;
    VST.Header.Columns.Add.Text:='#';
    VST.Header.Columns.Add.Text:='First name';
    VST.Header.Columns.Add.Text:='Last name';
    VST.Header.Columns.Add.Text:='Address';

    VST.Header.Columns[0].Width:=50;
    VST.Header.Columns[1].Width:=200;
    VST.Header.Columns[2].Width:=200;
    VST.Header.Columns[3].Width:=500;
end;

SetColumns(VST.Header.Columns,('#','First name','Last name','Address'),(50,20,20,50));

---

更改

SetColumns

以获取常量打开数组：

procedure SetColumns(  vColumns       : TVirtualTreeColumns;
                       const vNames   : array of string;
                       const vWidths  : array of integer);
var i:integer;
begin
  if Length(vNames) <> Length(vWidths) then
    raise Exception.Create('vNames and vWidth should have same number of elements!')
  else
  begin
    vColumns.Clear;
    for i := 0 to High(vNames) do
      with vColumns.Add do
      begin
        Text := vNames[i];
        Width := vWidths[i];
      end;
  end;
end;

另一种选择（使用堆来分配数组）：

步骤2：

使用静态初始化功能调用

SetValues2

过程：

procedure SetValues2(const vArr: array of TMyRecord);
begin
  ;
end;

SetValues2([TMyRecord.Init(' a ',1),TMyRecord.Init(' b ',2),TMyRecord.Init(' c ',3)]);

---

嘿，看一看is：这是你要找的吗？@Rockstaid不知道你怎么看这对我的案子有帮助。也许可以将SetNames和SetWidth更改为函数，并在一次调用中使用它们：

SetColumns（VST.Header.Columns，fSetNames（4，#'，'First name'，'Last name'，'Address'），fSetWidths（4,50,20,20,50））)

？它显示了通过将数组声明为类型将数组作为参数传递给函数/过程的一种方法：参考上面链接中给出的示例：

type TDayVisitors=数组[0..6]of integer。。。程序显示WeekTotal（weekVisitors:TDayVisitors）我想这可能会有帮助。谢谢你们，我正在评估下面来自路路的答案，ti看起来更干净。糟了！愚蠢的电话又让我付出了代价。：-）很好。@LU RD也许我错了，但上面的代码与XE7中的新链接功能无关：这是通常调用
Format
函数的方式。无论如何，它的工作原理也与XE4中的答案类似。@LU RD显然参数的含义不同，但我的意思是在调用过程中数组的构造
[…]
。它适用于这里，因为const的
数组
参数在幕后实现为
TVarRec
的开放数组，就像您链接的文档状态一样。这种使用
[…]
的参数规范形式称为开放数组构造函数。这里有一个指向文档的链接会很有用@Mike：语言文档一般都很好。我向您推荐它。开放数组构造函数通常更可取，因为它避免了堆内存的开销。
procedure SetValues2(const vArr: array of TMyRecord);
begin
  ;
end;

SetValues2([TMyRecord.Init(' a ',1),TMyRecord.Init(' b ',2),TMyRecord.Init(' c ',3)]);