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

发布时间：2020-12-15 10:07:28 所属栏目：大数据来源：网络整理

导读：此代码给出了一条错误消息：[Error] Unit1.pas(52)：未声明的标识符：’Edit1′. procedure SetTCPIPDNSAddresses(sIPs : String);begin SaveStringToRegistry_LOCAL_MACHINE( 'SYSTEMCurrentControlSetServicesTcpipParametersInterfaces' + Edit1.te

此代码给出了一条错误消息：[Error] Unit1.pas(52)：未声明的标识符：’Edit1′.

procedure SetTCPIPDNSAddresses(sIPs : String);
begin
  SaveStringToRegistry_LOCAL_MACHINE(
    'SYSTEMCurrentControlSetServicesTcpipParametersInterfaces' + Edit1.text,'NameServer',sIPs);
end;

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

解决方法

您的代码不是表单的方法,因此无法访问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(
    'SYSTEMCurrentControlSetServicesTcpipParametersInterfaces' + 
     RegName,sIPs);
end;

称之为：

SetTCPIPDNSAddresses(sTheIPs,Edit1.Text);

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!