问带对象的Delphi数组
EN

Stack Overflow用户

提问于 2019-07-13 01:16:35

回答 1查看 769关注 0票数 5

有没有更有效的方法来做下面的事情？基本上，我想引用tMemo名称mcpx，而不是像下面这样直接引用对象名称：

    if x = 1 then mcp1.Lines.Append(inttostr(cp[x]));
    if x = 2 then mcp2.Lines.Append(inttostr(cp[x]));
    if x = 3 then mcp3.Lines.Append(inttostr(cp[x]));
    if x = 4 then mcp4.Lines.Append(inttostr(cp[x]));
    if x = 5 then mcp5.Lines.Append(inttostr(cp[x]));

reference

arrays

object

delphi

回答 1

Stack Overflow用户

回答已采纳

发布于 2019-07-13 01:35:34

在现代的Delphi中，将memos放入数组中非常容易。然后，正如Sertac Akyuz所提到的，使用数组索引访问它们，并跳过if。

Var   
MemoArray : array of TMemo;
... 
MemoArray := [mcp1,mcp2,mcp3,mcp4,mcp5];
 ...
// Zero based dynamic array, so need to do the - 1, no need for the if
MemoArray[x-1].Lines.Append(IntToStr(cp[x]));

票数 8

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/57011438

复制

相似问题

问带对象的Delphi数组
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问带对象的Delphi数组EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问带对象的Delphi数组
EN