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;

SensRow    2   08.10.2019 12:20    2