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 |