Question

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;

Answer 1

1. Класс TForm1
2. Наследование класса TForm1 от TForm
3. fsotrudnic, faddress
4. Button1Click, ComboBox1Click
5. Объявление объекта (или экземпляра) класса TForm