delphi简单问题

Question

procedure TMainForm.N7Click(Sender: TObject);
begin
  richedit1.CutToClipboard;
end;在type中声明了
 procedure N7Click(Sender: TObject);
为何编译时出错：Statement expected but 'PROCEDURE' found请高手指点！！
谢谢

Answer 1

你是自己加的还是自动加的呢？
自己加的话
在type中声明了
 procedure Tmainfrom.N7Click(Sender: TObject);

Answer 2

unit MainUnit;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Spin, Buttons, ToolWin, Menus, ExtCtrls,
  ExtDlgs;type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    PopupMenu1: TPopupMenu;
    PopupPaste: TMenuItem;
    PopupCut: TMenuItem;
    PopupCopy: TMenuItem;
    ToolBar1: TToolBar;
    OpenFile: TSpeedButton;
    SaveFile: TSpeedButton;
    OpenPicture: TSpeedButton;
    SavePicture: TSpeedButton;
    ModifyFont: TSpeedButton;
    Exit: TSpeedButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    SpinEdit1: TSpinEdit;
    ComboBox1: TComboBox;
    DateTimePicker1: TDateTimePicker;
    RadioGroup1: TRadioGroup;
    Label5: TLabel;
    Bevel1: TBevel;
    Image1: TImage;
    Label6: TLabel;
    StatusBar1: TStatusBar;
    RichEdit1: TRichEdit;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    OpenPictureDialog1: TOpenPictureDialog;
    SavePictureDialog1: TSavePictureDialog;
    FontDialog1: TFontDialog;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure SaveFileClick(Sender: TObject);
    procedure SavePictureClick(Sender: TObject);
    procedure ModifyFontClick(Sender: TObject);
    procedure ExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure OpenPictureClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  MainForm: TMainForm;
  memo1:tmemo;implementationuses Unit1;{$R *.dfm}procedure TMainForm.N13Click(Sender: TObject);
begin
  if(openpicturedialog1.Execute) then
    image1.Picture.LoadFromFile(openpicturedialog1.FileName);
end;procedure TMainForm.N14Click(Sender: TObject);
var
  i:integer;
begin
  if(opendialog1.Execute) then
  begin
    memo1.Lines.LoadFromFile(opendialog1.FileName);
    edit1.Text:=memo1.Lines[0];
    spinedit1.Text:=memo1.Lines[1];
    combobox1.Text:=memo1.Lines[2];
    datetimepicker1.Date:=strtodate(memo1.Lines[3]);
    RadioGroup1.ItemIndex:=strtoint(memo1.Lines[4]);
    for i:=0 to memo1.Lines.Count-1 do
      begin
        richedit1.Lines.Append(memo1.Lines[i]);
      end;
  end;
end;procedure TMainForm.N4Click(Sender: TObject);
begin
   N3Click(Sender);
end;procedure TMainForm.N3Click(Sender: TObject);
var
  i:integer;
begin
  if(savedialog1.Execute) then
  begin
    memo1.Lines[0]:=edit1.Text;
    memo1.Lines[1]:=spinedit1.Text;
    memo1.Lines[2]:=combobox1.Text;
    memo1.Lines[3]:=datetostr(datetimepicker1.Date);
    memo1.Lines[4]:=inttostr(radiogroup1.ItemIndex);
    for i:=0 to richedit1.Lines.Count-1 do
      begin
        memo1.Lines.Append(richedit1.Lines[i]);
      end;
    savedialog1.Files.SaveToFile(savedialog1.FileName);
end;procedure TMainForm.N7Click(Sender: TObject);    //////////本行出错
begin
  richedit1.CutToClipboard;
end;procedure TMainForm.N8Click(Sender: TObject);
begin
  richedit1.PasteFromClipboard;
end;procedure TMainForm.N9Click(Sender: TObject);
begin
  richedit1.CopyToClipboard;
end;procedure TMainForm.N10Click(Sender: TObject);
begin
  richedit1.Clear;
end;procedure TMainForm.N12Click(Sender: TObject);
begin
   form1.show;
end;
procedure TMainForm.SaveFileClick(Sender: TObject);
begin
   N3Click(Sender);
end;
procedure TMainForm.SavePictureClick(Sender: TObject);
begin
  if(savepicturedialog1.Execute) then
    savepicturedialog1.Files.SaveToFile(savepicturedialog1.FileName);
end;procedure TMainForm.ModifyFontClick(Sender: TObject);
begin
  if(fontdialog1.Execute) then
    begin
      richedit1.SelAttributes.Color:=fontdialog1.Font.Color;
      richedit1.SelAttributes.Pitch:=fontdialog1.Font.Pitch;
      richedit1.SelAttributes.Size:=fontdialog1.Font.Size;
      richedit1.SelAttributes.Style:=fontdialog1.Font.Style;
    end;
end;procedure TMainForm.ExitClick(Sender: TObject);
begin
  close;
end;procedure TMainForm.FormCreate(Sender: TObject);
begin
  memo1.Clear;
end;procedure TMainForm.N2Click(Sender: TObject);
begin
   N14Click(Sender);
end;procedure TMainForm.OpenPictureClick(Sender: TObject);
begin
    N13Click(Sender);
end;end.