Delphi的控件名称ComboBox后面的数字是动态的怎么表示？

冥界3大法王

例如
控件名是:
ComboBox1
ComboBox2
ComboBox3

但是，后面的那个数字是我从txt中读取出来的
我要弄成动态的 ： ComboBox+数字编号

下面这样表示，没出错，但运行就异常了。

TComboBox(Self.Controls[StrToInt(控件编号.Value)]).TextHint := 控件编号.Value;

y_w_o

TComboBox.name:='ComboBox'+控件编号.Value;
控件编号.Value是string还是integer类型

冥界3大法王

y_w_o 发表于 2023-1-9 15:02
TComboBox.name:='ComboBox'+控件编号.Value;
控件编号.Value是string还是integer类型

控件编号.Value

这个是用正则匹配出来的
因此它是字符串

JuncoJet

控件数组吧，只会VB6

JuncoJet

[C++] 纯文本查看 复制代码

Procedure TForm1.Button1(Sender:TObject); 
var 
Index:Integer; 
Begin 

For Index:=0 to ControlCount-1 do 
Begin 

if Components[Index] is TEdit then 
begin 
(Components[Index] As TEdit).Color:=ClLime; 
end 
End 

End; 

在DELPHI的每一个VCL组件中都带有一个属性：COMPONENTINDEX；利用这个属性就可以实现控件数组
摘录自网络

y_w_o

procedure TForm1.btn1Click(Sender: TObject);
var
  ComboBox: array of TComboBox;
  i, j, d: Integer;
begin
  j := 3; //控件数量
  d := 50;
  setlength(ComboBox, j); //设置数组上限
  for i := 0 to j - 1 do
  begin
    ComboBox[i] := TComboBox.Create(nil);
    ComboBox[i].Parent := Form1;
    ComboBox[i].Name := 'ComboBox' + IntToStr(i + 1);
    ComboBox[i].Text := 'ComboBox' + IntToStr(i + 1);
    ComboBox[i].Left := 0 + d;
    ComboBox[i].Top := 100;
    d := d + 200;
  end;
end;

Ashes

你可以参考5楼的代码学习一下啊. 6楼是动态创建控件数组的例子.
你的代码为什么出错? 是因为: 指定编号对应的控件 Self.Controls[index] 恰好不是 ComboBox.
这里的编号, 跟控件名称中的1,2,3没有关系. 是内部隐含的编号.