Delphi自定义ResetForm过程首行代码编译失败求助

• 确认过程的作用域位置
  把ResetForm移到窗体类的private/protected/public区段内实现，不要放在类外部。如果是类外部的独立过程，直接访问edtG1会因为作用域权限报错，必须加上窗体实例前缀（比如YourFormName.edtG1）。

• 核对过程声明与实现的语法
  检查声明和实现的一致性：

  • 声明部分（比如在interface里）：procedure ResetForm;
  • 实现部分：procedure TYourForm.ResetForm;（必须带类名前缀）
    不要在声明里写多余的空格或错误符号，确保分号等标点正确。

• 排查控件标识符冲突
  确认edtG1的Name属性确实是这个值，没有拼写错误。同时检查当前作用域内是否有同名的变量、常量或其他标识符，比如是否在过程上方定义了var edtG1: Integer;这类代码，导致编译器混淆。

• 重视编译器错误提示
  把编译时弹出的具体错误信息记下来，比如：

  • 若提示Undeclared identifier: 'edtG1'：说明编译器找不到这个控件，大概率是作用域或引用问题；
  • 若提示Invalid qualifier：可能是控件名拼写错，或者你误将非控件标识符当成了控件使用。

• 做最小化测试验证
  新建空白窗体，添加一个TEdit并命名为edtG1，然后在窗体类里写极简的测试过程：

  procedure TForm1.ResetForm;
  begin
    edtG1.Text := '';
  end;
  

  编译测试，如果正常，说明原项目存在其他隐藏问题，比如单元引用缺失、窗体实例未正确初始化，或者有第三方组件/编译指令干扰。

• 检查单元引用与窗体实例
  如果ResetForm在其他单元中，确保该单元已经引用了窗体所在的单元，并且访问控件时使用正确的窗体实例（比如MainForm.edtG1，而非直接写edtG1）。

内容的提问来源于stack exchange，提问作者Nick van der Merwe