编译出错，请问如何解决！

Question

实现部分改成这样试试:
procedure Tform1.togglecheck(Item:TMenuItem);
begin
  Item.Checked:=Not Item.Checkd;
end；

Answer 1

不了解, 我也试过, Delphi 就是讨厌!!!

Answer 2

当然不行罗。
实现部分表明这是一个函数，并不是类中的一个方法。申明跟实现不统一，自然有这个编译错误。不要乱骂Delphi哦。

Answer 3

这个过程有三种改法；
1。将这个过程定义为TForm1定义成类成员过程。也就是楼上的改法。
2。将这个过程定义为一个单元的内部的过程。这时，去掉你的声明部分。
3。如果你想让别的单元也可引用这个过程，在interface区声明这个过程，
   注意：不是写在Tform1或其他类的声明中。

Answer 4

函数声明放在FORM的类里面,函数实现加上这个类名,这样就可以了.
代码如下:
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure togglecheck(Item:TMenuItem);
  end;var
  Form1: TForm1;implementation{$R *.DFM}{ TForm1 }procedure TForm1.togglecheck(Item: TMenuItem);
begin
  Item.Checked:=Not Item.Checkd;
end;

Answer 5

是否定了procedure togglecheck(Item:TMenuItem);
FORM1= CLASS（TFORM）
。。
PRIVATE
  procedure togglecheck(Item:TMenuItem);。END
procedure TFORM1。togglecheck(Item:TMenuItem); 
BEGIN
  Item.Checked:=Not Item.Checkd;END

Answer 6

感谢xiaomoge(xiaomoge)、 tazhch(鸭) 、 Forren(影子）等人的回答。