几个基本概念 ( 积分: 10 )

  • 主题发起人 主题发起人 del_today
  • 开始时间 开始时间
D

del_today

Unregistered / Unconfirmed
GUEST, unregistred user!
各位高手:
以下简单代码为一个自动随机出题的小程序,通过该例我想问几个基本概念:
1、其中代码
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
是否为一个TFrom1类的定义?
2、在该TFrom1类的定义中,哪个是类的属性、哪个是类的方法?是Button1: TButton;和
procedure Button1Click(Sender: TObject);吗?
3、“类的属性、类的方法”这句话的说法对吗?还是应该说“对象的属性、对象的方法”?
4、该TFrom1类的定义该怎样理解?我只知道类可以生成对象实例,但一到具体代码我就晕了。
请各位高手详细指教,能举例最好!


**************************************************************


unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin

Randomize;
for I := 1 to 10 do begin
Canvas.TextOut(20,I*20,
IntToStr(Random(9)+1)+'×'+IntToStr(Random(9)+1)+'=');
Canvas.TextOut(220,I*20,
IntToStr(Random(100))+'+'+IntToStr(Random(100))+'=');
end;

end;

end.
 
各位高手:
以下简单代码为一个自动随机出题的小程序,通过该例我想问几个基本概念:
1、其中代码
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
是否为一个TFrom1类的定义?
2、在该TFrom1类的定义中,哪个是类的属性、哪个是类的方法?是Button1: TButton;和
procedure Button1Click(Sender: TObject);吗?
3、“类的属性、类的方法”这句话的说法对吗?还是应该说“对象的属性、对象的方法”?
4、该TFrom1类的定义该怎样理解?我只知道类可以生成对象实例,但一到具体代码我就晕了。
请各位高手详细指教,能举例最好!


**************************************************************


unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin

Randomize;
for I := 1 to 10 do begin
Canvas.TextOut(20,I*20,
IntToStr(Random(9)+1)+'×'+IntToStr(Random(9)+1)+'=');
Canvas.TextOut(220,I*20,
IntToStr(Random(100))+'+'+IntToStr(Random(100))+'=');
end;

end;

end.
 
1.对
2 Button1: TButton;又是一个类.是按纽类.
procedure Button1Click(Sender: TObject);是一个过程,一个自己即将编写的事件.
属性和方法都没有.属性就是在object inspector里面的top.width.caption等东东
方法嘛比如form1.refresh就是一个方法.总之属性是用来直接赋值的,而方法是用来实现某些功能的。只要把握这些旧应该可以了吧。
3。类就好比是整数这个类型,而对象就iu好比我们定义了一个变量i。就这么个对应关系。
4 TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
定义了一个类,名字是TForm1,他是继承了TForm,然后又增加了Button1: TButton;
procedure Button1Click(Sender: TObject);
等东东,如果只有这一个form,本身这个类的实现过程就是整个程序的实现过程。。view source里面可以看到,创建这个类的过程就是程序运行的过程。

了解不是很深刻。请大家多多指教。。
 
>>是否为一个TFrom1类的定义?

>>在该TFrom1类的定义中,哪个是类的属性、哪个是类的方法?
属性是:Button1:TButton
方法是:procedure Button1Click(Sender: TObject);

>>“类的属性、类的方法”这句话的说法对吗?还是应该说“对象的属性、对象的方法”?
类的属性、类的方法是正确的

>>该TFrom1类的定义该怎样理解?我只知道类可以生成对象实例,但一到具体代码我就晕
以下是申明一下类的实例:
var
FrmTest: TForm1

以下是创建这个实例:
FrmTest := TForm1.Create(nil);//到这一步才是真正在内存中创建了对象

创建的依据就是前面Type所定义的内容了。
 
2.Who's right? 呵呵
 
>>是否为一个TFrom1类的定义?
是一个类的实例
>>在该TFrom1类的定义中,哪个是类的属性、哪个是类的方法?
Button1:TButton button1是Tbutton的实例
方法是:procedure Button1Click(Sender: TObject);
 
var
Button2: Tbutton
implementation
Button2 := button2.create(TFrom1)
//定义属性
button2.top := 100
button2.caption := 'myButton'
//定义方法
自己研究
到DELPHIBOX去D一本delphi6.0从入门到精通
 
自认为正确
1、其中代码
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
>>是否为一个TFrom1类的定义?


>>2、在该TFrom1类的定义中,哪个是类的属性、哪个是类的方法?是Button1: TButton;和
>> procedure Button1Click(Sender: TObject);吗?

Button1确切来说不是类的属性,Delphi的类的属性应该是property关键字声明的,可以定义是否可读于可写,后者确实为类的方法

>>3、“类的属性、类的方法”这句话的说法对吗?


>>还是应该说“对象的属性、对象的方法”?
也可以这么说

>>4、该TFrom1类的定义该怎样理解?我只知道类可以生成对象实例,但一到具体代码我就晕了。
请先告诉我这句话该怎么理解?
 

Similar threads

I
回复
0
查看
701
import
I
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
690
import
I
后退
顶部