arrays - Delphi 数组与对象

Question

是否有更有效的方法来执行以下操作？基本上我想引用 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]));

Answer 1

在现代 Delphi 中，将备忘录放入数组中可以相当容易地完成。然后，正如 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]));