- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我已经建立了非常好的系统来将列添加到 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 - 在全局整数数组中设置列宽度
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));
最佳答案
更改 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;
在数组周围添加括号 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)]);
关于arrays - 如何在没有数组变量的情况下传递值数组?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/34436648/
我的问题:非常具体。我正在尝试想出解析以下文本的最简单方法: ^^domain=domain_value^^version=version_value^^account_type=account_ty
好吧,这就是我的困境: 我正在为 Reddit 子版 block 开发常见问题解答机器人。我在 bool 逻辑方面遇到了麻烦,需要一双更有经验的眼睛(这是我在 Python 中的第一次冒险)。现在,该
它首先遍历所有 y 值,然后遍历所有 x 值。我需要 X 和 y 同时改变。 For x = 3 To lr + 1 For y = 2 To lr anyl.Cells(x, 1)
假设我有一个包含 2 列的 Excel 表格:单元格 A1 到 A10 中的日期和 B1 到 B10 中的值。 我想对五月日期的所有值求和。我有3种可能性: {=SUM((MONTH(A1:A10)=
如何转换 Z-score来自 Z-distribution (standard normal distribution, Gaussian distribution)到 p-value ?我还没有找到
我正在重写一些 Javascript 代码以在 Excel VBA 中工作。由于在这个网站上搜索,我已经设法翻译了几乎所有的 Javascript 代码!但是,有些代码我无法准确理解它在做什么。这是一
我遇到过包含日期格式的时间戳日期的情况。然后我想构建一个图表,显示“点击”项目的数量“每天”, //array declaration $array1 = array("Date" => 0); $a
我是scala的新手! 我的问题是,是否有包含成员的案例类 myItem:Option[String] 当我构造类时,我需要将字符串内容包装在: Option("some string") 要么 So
我正在用 PHP 创建一个登录系统。我需要用户使用他或她的用户名或电子邮件或电话号码登录然后使用密码。因为我知道在 Java 中我们会像 email==user^ username == user 这
我在 C++ 项目上使用 sqlite,但是当我在具有文本值的列上使用 WHERE 时出现问题 我创建了一个 sqlite 数据库: CREATE TABLE User( id INTEGER
当构造函数是显式时,它不用于隐式转换。在给定的代码片段中,构造函数被标记为 explicit。那为什么在 foo obj1(10.25); 情况下它可以工作,而在 foo obj2=10.25; 情况
我知道这是一个主观问题,所以如果需要关闭它,我深表歉意,但我觉得它经常出现,让我想知道是否普遍偏爱一种形式而不是另一种形式。 显然,最好的答案是“重构代码,这样你就不需要测试是否存在错误”,但有时没有
这两个 jQuery 选择器有什么区别? 以下是来自 w3schools.com 的定义: [attribute~=value] 选择器选择带有特定属性,其值包含特定字符串。 [attribute*=
为什么我们需要CSS [attribute|=value] Selector根本当 CSS3 [attribute*=value] Selector基本上完成相同的事情,浏览器兼容性几乎相似?是否存在
我正在解决 regx 问题。我已经有一个像这样的 regx [0-9]*([.][0-9]{2})。这是 amont 格式验证。现在,通过此验证,我想包括不应提供 0 金额。比如 10 是有效的,但
我正在研究计算机科学 A 考试的样题,但无法弄清楚为什么以下问题的正确答案是正确的。 考虑以下方法。 public static void mystery(List nums) { for (
好的,我正在编写一个 Perl 程序,它有一个我收集的值的哈希值(完全在一个完全独立的程序中)并提供给这个 Perl 脚本。这个散列是 (string,string) 的散列。 我想通过 3 种方式对
我有一个表数据如下,来自不同的表。仅当第三列具有值“债务”并且第一列(日期)具有最大值时,我才想从第四列中获取最大值。最终值基于 MAX(DATE) 而不是 MAX(PRICE)。所以用简单的语言来说
我有一个奇怪的情况,只有错误状态保存到数据库中。当“状态”应该为 true 时,我的查询仍然执行 false。 我有具有此功能的 Controller public function change_a
我有一个交易表(针对所需列进行了简化): id client_id value 1 1 200 2 2 150 3 1
我是一名优秀的程序员,十分优秀!