1. Как называется класс, который приведен на примере ниже? type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
. . .
end;
2. Что обозначает выражение (TForm) в строке TForm1 = class(TForm)?
3. Выпишите название полей, приведенных ниже?
TDenartament=class
private
fsotrudnic: string[15];
faddress: string[15];
constructor create;
function Getname: Tname;
function Getaddress: Taddress;
procedure Setaddress: Taddress;
public
procedure show;
. . .
4. Выпишите название методов, приведенных ниже?
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure ComboBox1Click(Sender: TObject);
. . .
end;
5. Что обозначает следующие выражения?
var
Form1:TForm;
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
. . .
end;
2. Что обозначает выражение (TForm) в строке TForm1 = class(TForm)?
3. Выпишите название полей, приведенных ниже?
TDenartament=class
private
fsotrudnic: string[15];
faddress: string[15];
constructor create;
function Getname: Tname;
function Getaddress: Taddress;
procedure Setaddress: Taddress;
public
procedure show;
. . .
4. Выпишите название методов, приведенных ниже?
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure ComboBox1Click(Sender: TObject);
. . .
end;
5. Что обозначает следующие выражения?
var
Form1:TForm;