Question

我已经建立了非常好的系统来将列添加到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;

新系统有3个额外的程序，但执行它们的代码要少得多：

SetNames - 在字符串

的全局数组中设置列名

SetWidths - 在整数

的全局数组中设置列widhs

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;

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

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

Answer 1

更改SetColumns以使用const打开数组：

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;

在数组Using Open Array Constructor周围添加括号：

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

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

SetColumns( VST.Header.Columns,
            TArray<String>.Create('#','First name','Last name','Address'),
            TArray<Integer>.Create(50,20,20,50));

圣诞节奖金更新

在评论中，OP询问如何以类似的方式在括号中传递记录数组。

第1步：

声明一个静态类函数作为记录的成员返回记录：

Type
  TMyRecord =
    record
      myName: string;
      myValue: integer;
      class function Init(const aName: String; aValue: Integer): TMyRecord; static;
    end;

class function TMyRecord.Init(const aName: String; aValue: Integer): TMyRecord;
begin
  Result.myName := aName;
  Result.myValue := aValue;
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)]);

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

1 个答案: