delphi - 为什么编译器对我的表单字段说“未声明的标识符”？

Question

这段代码给了我一条错误消息：[Error] Unit1.pas(52): Undeclared identifier: 'Edit1'。

procedure SetTCPIPDNSAddresses(sIPs : String);
begin
  SaveStringToRegistry_LOCAL_MACHINE(
    'SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\' + Edit1.text,
    'NameServer', sIPs);
end;

为什么我会收到此错误，我该如何解决？

Answer 1

您的代码不是表单的方法，因此无法访问Edit1.

要么让它成为一个表单方法：

type
  TForm1=class(TForm)
  ...
  private
    procedure SetTCPIPDNSAddresses(sIPs : String);
  ...
  end;

implementation

procedure TForm1.SetTCPIPDNSAddresses(sIPs : String);
 begin
   ...
 end;

或者将其更改为接受的内容Edit1.Text作为另一个参数：

procedure SetTCPIPDNSAddresses(sIPs : String; RegName: String);
begin
  SaveStringToRegistry_LOCAL_MACHINE(
    'SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\' + 
     RegName, 'NameServer', sIPs);
end;

并称它为：

SetTCPIPDNSAddresses(sTheIPs, Edit1.Text);

Answer 2

如果您不能使用 Ken White 给您的解决方案，例如，如果您不允许更改 的签名SetTCPIPDNSAddresses()，那么另一种选择是TEdit通过指向其父级的全局指针访问TForm（如果您的TForm实例实际上正在使用该指针，即），例如：

procedure SetTCPIPDNSAddresses(sIPs : String); 
begin 
  SaveStringToRegistry_LOCAL_MACHINE( 
    'SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\' + Form1.Edit1.Text, 
    'NameServer', sIPs); 
end;