文本框的 Pascal 递增变量名称答案

【问题标题】：Pascal incrementing variable names of textboxes文本框的 Pascal 递增变量名称
【发布时间】：2019-01-21 06:13:43
【问题描述】：

我正在使用数组来管理我的数据输入和输出。

我的问题是我需要输入/输出文本框，这些文本框连续递增 1- 所以我的数组从 1 开始，到 31 结束。我的文本框是变量，不能是数组，命名为 memo67.. . - memo97.

是否有可能以某种方式使用 tmepcounter？所以我想在 for 循环中使用类似 memo(a+66) 的东西。有了这个，我可以用我的 array[a] 1 到 31 填充我的文本框。

问候

【问题讨论】：

如果您有名为 myctrl1、myctrl2、myctrl3、...、myctrlN 的控件，则说明您做错了。请改用数组。此外，通过“连接变量名的部分”来动态访问 myctrlK 是“不可能的”。
我正在使用一个工具来创建打印表单。在这个我有很多文本字段，我必须有权输入我的数组内容。这里的问题是这些盒子被命名为 memo1、memo2 等等。那么是否有可能拥有名为 memo[1].. memo[2] 等的“文本框”数组？不幸的是，正如您所说，无法连接变量名。

标签： loops variables for-loop increment pascal

【解决方案1】：

正如 Andreas 所说，通常在这种情况下使用数组。但是如果你喜欢我喜欢快速复制和过去的动作，你可以通过一个程序使用 TComponent 功能来填充这样的数组：

Type 
   TForm1 = class
              editsset1 : array of tedit;  
             end;



type     TControlDynArray      = Array of TControl;


procedure loadarray (root:tcomponent;var x : TControlDynArray;basename:string;i1,i2:integer);
var l,i : integer;
begin
 l:=i2-i1+1;
 setlength(x,l);
 for i := i1 to i2 do
   begin
     x[i-i1]:=tcontrol(root.FindComponent(basename+inttostr(i)));
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // loads edit1..31 into  editsset1[0] ... editsset[30]
  loadarray(self,TControlDynArray(editsset1),'Edit',1,31);
end;

免责声明：以上代码是从工作代码拼凑而成，但我没有测试最终结果

【讨论】：

是的，这种方法当然是可行的（这就是为什么我在评论中将“not”放在引号中！）。
我的代码现在可以工作了，因为我使用了类似这样的东西：我必须用我的数组元素 mName[1] := M1; 声明一次我的所有文本框。 mName[20] := M20;并且可以使用带有 mName[1] 的文本框，正如我所注意到的。那么我是否正确理解我的 Array 元素是指向 M1 地址的引用/指针？
Delphi 类已经是引用/指针/所以你将存储在 M1 中的指针值复制到数组中。
感谢您的帮助。因此，如果我理解正确：如果我更改数组元素的值，它们也会在 M1 中更改。我问这个是因为我猜我的源代码是这样工作的，但我不确定这是否是答案。非常感谢:)
是的。它只是将引用放入数组中。这一切都很简单，除了调用中的动态数组强制转换，这是将一个例程用于多种类型的技巧。该例程非常通用，不依赖于形式，并且在我的一个个人库中。