.


:




:

































 

 

 

 





 

3

? 19.701-90 " "/ 5807-85);

 

       
?      
?      
?      
?      

 

 

4

. .

1

x1 =0.1 xn =1.0 (xn- x1)/10

 

2 10-7

 

 

3. ( ). : (); , 100 ; .

 

 

2. . , ( ), .

 

 

2.1. - ()

5. : ,

:

   
   
   
   
   

 

2

:

TPerson, type, private, end;= class, fname: string [15]; public, faddress: string [50]; procedure Show;

 

3

TProfessor TPerson(.2)

 

 

6.: : , , .

1

 
 
 
Virtual  
Override  
public  
protected private  
 
 
 

2. Name, , Address

property, read, read,GetName; SetAddress; property, GetAddress, write, Name: TName, Address: TAddress,

3.

Type

tFiled = class

function GetData:string; virtual; abctract;

End;

tStringFiled = class(tFiled)

fData:string;

function GetData: string; override;

End;

tIntegerFiled = class(tFiled)

fData:Integer;

function GetData: string; override;

End;

tExtendedFiled = class(tFiled)

fData:Extended;

function GetData: string; override;

End;

function tStringFiled.GetData: string;

Begin

Result:=fData;

End;

function tIntegerFiled.GetData: string;

Begin

Result:=IntToStr(fData);

End;

function tExtendedFiled.GetData: string;

Begin

Result:=FloatToStr(fData,ffFixed, 7, 2);

End;

function ShowData(aFiled:tFiled): string;

Begin

Form1.Label1.Caption:=aFiled.GetData;

End;

2. tMyClass=class(tObject);

tMyClass=class;

7

:

1. ?

TabOrder  
 
Visible  
Width  
TabStop  
Tag  
PopupMenu  
ParentCtl3D  
ParentFont  
ParentColor  
Left  
HelpContext  
Hint  
Height  
Font  
Enabled  
DrogMode  
Cursor  
Ctl3D  
Color  
Align  

2. ?

OnClick  
OnDblClick  
OnMouseDown  
OnMouseUp  
OnMouseMove  
OnKeyPress  
OnKeyDown  
OnKeyUp  
OnCreate  
OnPaint  
OnEnter  
OnExit  




:


: 2016-12-06; !; : 633 |


:

:

,
==> ...

788 - | 787 -


© 2015-2024 lektsii.org - -

: 0.014 .