Question

delphi 类型声明 变量声明

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

end.

在哪都能声明什么，详细解释一下啊。

Answer 1

type 是定义类型
VAR是声明变量

这两个关键字除了不能放在类定义,过程或函数体内外,基乎可以在任何地方,所放地方的不同,那么他们起的作用域不同.
1.类定义,像如
type //告诉编译器,下面的代码定义一个类
Tform1 = class(Tform) //Tform1 从TForm 继承
....//这里是类的一些属性,函数等等
end; //从Tform1 = class(Tform) 到这个end为止即为一个类定义. 在这中间不允许有 type 和 var出现

2.过程或函数体内部
procedure xxxxxxxxxxxxxxxx; //告诉编译器,下面的代码定义一个过程
begin
...............
end;
function XXXXXXXXXXXXXXX;//告诉编译器,下面的代码定义一个函数
begin
...............
end;//上面的两个begin..end 不允许有 type 和 var出现

Answer 2

Private处声明的变量只能在本单元以TForm开头的函数或过程中使用。

Public处声明的变量可以在本单元或外单元以TForm开头的类:函数或过程中使用。

implementation前面或后面声明的变量可以在本单元或外单元所有的过程或函数中使用，即使没有加Tform开头的过程或函数.

追问

请问：
procedure TForm1.Button1Click(Sender: TObject);
edit1:=...;
......

这里的edit1不是Tform1.edit1是为什么？

追答

var
Form1: TForm1; //注意这里表明，form1是TForm1的一个实例。一下程序即是对这个实例的操作。

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Edit1.Color := clred;
end;

追问

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Edit1.Color := clred;
end;
那此时的form1.Edit1.Color为什么没有省略form1.
那什么时候能省略？

追答

现在就能省略。在这里 form1.Edit1.Color := clred；与Edit1.Color := clred；是等效的。在本窗体单元内调用本来就是省略的，为想你说明问题才附带上。

Answer 3

type 是定义类型
VAR是声明变量

这两个关键字除了不能放在类定义,过程或函数体内外,基乎可以在任何地方,所放地方的不同,那么他们起的作用域不同.
1.类定义,像如
type //告诉编译器,下面的代码定义一个类
Tform1 = class(Tform) //Tform1 从TForm 继承
....//这里是类的一些属性,函数等等
end; //从Tform1 = class(Tform) 到这个end为止即为一个类定义. 在这中间不允许有 type 和 var出现

2.过程或函数体内部
procedure xxxxxxxxxxxxxxxx; //告诉编译器,下面的代码定义一个过程
begin
...............
end;
function XXXXXXXXXXXXXXX;//告诉编译器,下面的代码定义一个函数
begin
...............
end;//上面的两个begin..end 不允许有 type 和 var出现
另外,团IDC网上有许多产品团购,便宜有口碑

Answer 4

type中声明类
var中声明变量
这都是全局的
这有什么好说的。