Question

我的程序运行时创建的对象出现问题

首先我创建n个对象（假设n：= 3）

for i:=0 to n-1 do
  begin
    With TGauge.Create(Form1) do
      begin
        Parent  := Form1;  // this is important
        Left    := 20;     // X coordinate
        Top     := 20+i*45;     // Y coordinate
        Width   := 250;
        Height  := 20;
        Kind    := gkHorizontalBar;
        Name    := 'MyGauge'+IntToStr(i);
        //.... 
        Visible := True;
      end;
  end;

这三个对象在表单中创建并可见。现在我想改变它的'属性，但每当我尝试访问这些创建的对象时，我只得到

EAccessViolation

例如，当我尝试获取一个对象的名称时

g := Form1.FindComponent('MyGauge0') as TGauge;
Form1.Label1.Caption:=g.Name;

Answer 1

您的代码失败，因为FindComponent返回nil。这是因为Form1对象不拥有具有该名称的组件。这就是为什么这么难以从这里说出来。

但是，使用名称查找是解决问题的错误方法。不要使用名称来引用组件。将他们的引用保存在数组中。

var
  Gauges: array of TGauge;
....
SetLength(Gauges, N);
for I := 0 to N-1 do
begin
  Gauges[i] := TGauge.Create(Form1);
  ....
end;

然后您可以使用该数组引用控件。

我还会评论你指的是Form1全局对象很奇怪。在TForm1类中执行此操作可能会更好，因此可以使用隐式Self实例。

在运行时创建对象并使用它们

1 个答案: