使用编辑组件在数组上保存值

Question

您好，请您帮我解决一下。我会自己搜索，但我没有太多时间所以我问你。

procedure TForm1.Button1Click(Sender: TObject);
var 
my_array_item:array[0..100] of string;
begin
    my_array_item[0]:=edit1.Text;

end;

如果我尝试将edit1.text值分配给数组项，则会出错。

[dcc32 Error] Unit1.pas(556): E2010 Incompatible types: 'Dynamic array' and 'string'

我该如何解决这个错误？谢谢

Answer 1

显然，问题中的代码与错误无关。由于您显然粘贴了该错误消息，因此实际代码必须确实产生错误。我们来看看错误：

[dcc32 Error]: E2010 Incompatible types: 'Dynamic array' and 'string'

当您尝试分配两个不兼容分配的内容时，会看到错误E2010。在这种情况下，您尝试将字符串分配给动态数组，这是语法错误。

因此，您的代码如下所示：

var
  arr: array of SomeType;
  s: string;
....
arr := s;