DELPH小问题,高手来帮下忙啊.

Question

unit Unit1;//单元名称interface//这是接口uses//使用的单元
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type//这里是什么?
    TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }//这里在什么时候需要写
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
全局变量应该写在什么地方,自定义类又应该写在什么地方.

Answer 1

unit   Unit1;//单元名称 interface//这是接口 uses//使用的单元 
    Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms, 
    Dialogs,   StdCtrls; type//这里是什么? 自定义类啊
        TForm1   =   class(TForm) 
        Button1:   TButton; 
        Edit1:   TEdit;         procedure   Button1Click(Sender:   TObject); 
    private 
        {   Private   declarations   }//这里在什么时候需要写 
    public 
        {   Public   declarations   } 
    end; var //模块级公共变量
    Form1:   TForm1; implementation //模块内部公共变量
{$R   *.dfm} 

Answer 2

type//类型定义{   Private   declarations   }//需要定义窗体私有变量或者方法时写var //这是全局变量的定义地方，Form1就是全局变量，别的单元要使用时，必须uses
    Form1:   TForm1; 

Answer 3

type//这里是什么?   自定义类啊 
                TForm1       =       class(TForm)   
                Button1:       TButton;   
                Edit1:       TEdit;                   procedure       Button1Click(Sender:       TObject);   
        private   
                {       Private       declarations       }//这里在什么时候需要写   
        public   
                {       Public       declarations       }   
        end;   自定义类写在这个地方提示错误,但是写到implementation下面就对了.那又是为什么啊.

Answer 4

是这样的
type   //后面可以有多个类声明
 TForm1               =               class(TForm)  //第一个类
//............成员声明等//................
end;//用end结尾MyClass = class  //第二个类
//............成员声明等//................
end;//用end结尾//后面类似

Answer 5

unit   Unit1;//单元名称 interface//这是单元接口部分 uses//使用的单元 
    Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms, 
    Dialogs,   StdCtrls; type//下面的是公开的类型定义,包括各种类
     
   TForm1   =   class(TForm) 
        Button1:   TButton; 
        Edit1:   TEdit;         procedure   Button1Click(Sender:   TObject); 
    private 
        {   Private   declarations   }//这里是类的私有部分声明
    public 
        {   Public   declarations   }}//这里是类的公开部分声明
    end; //黑体是类TForm1的声明
var  //下面是全局变量声明
    Form1:   TForm1; implementation //以下是单元的实现部分,需要隐藏的定义也写在下面{$R   *.dfm} 

Answer 6

stherix
不好意思,我才结贴你就来了.