Delphi 过程：第一条指令未编译

Question

我正在编写一个 Delphi 应用程序，其中我有一个程序来清除表单并将其重置为默认值 state。

procedure ResetForm ();
begin
   edtG1.Text := ''; // Error occurs on this line, no matter what the instruction is.
   edtG1.Enabled := True;
   btnG1Check.Enabled := True;
   .
   .
   .
   .
end;

我已经尝试了一切——程序中的第一行代码无论如何都无法编译。 我也看不出程序声明有任何问题。

有人可以帮忙吗？ 我的谢谢。

我正在尝试清除表单中的所有字段，启用已禁用的内容等。将其重置为默认值 state，因为它在程序开始时启动。 我在第一行尝试了不同的代码指令（是的，edtG1 存在），其他控件和所有其他指令完全相同。 我也试过重命名程序，但无济于事。

Answer 1

您已经编写了一个独立的例程，并且正在访问窗体上的一些控件。 这是不可能的。

我假设您打算将其写为表单的一种方法。

Go 到你的表单单元的界面部分，写procedure ResetForm; 进入表格 class 的公共部分（评论{ Public declarations }所在的位置）并按Ctrl + Shift + C ，然后将代码写入方法。