3.1. I 䳿.
ij (ᒺ) . 䳿 (), . , , 䳿. , .
.
:
- ᒺ, . ;
- ( , ) .
, ( ) . .
.
ᒺ . ᒺ, . ᒺ .
, .
. () .
a)
)
. 3.1.
, :
- , , , . , . , . , .
1. ᒺ.
2. 䳿 ( ᒺ) 1 ᒺ , ᒺ . ᒺ . 䳿, , 䳿.
3. ᒺ , ᒺ.
4. ᒺ , ᒺ.
|
|
5. () ᒺ. ᒺ 䳿.
6. . - .
. ᒺ. (), , .
ᒺ .
, ( , , ).
.
- ᒺ .
4. [3]
Object Pascal - Delphi, ᒺ- , .
(Class) , , , (ᒺ).
:
< > = class (< ->) private < >; protected < >; public < >; published < >; end; |
4.1 ( - , , , - ).
˳ 4.1
Type // , . TDictionary = class private fWord: string[30]; // fPartOfSpeech: string[30]; // - fLength: byte; // . public procedure showinfo; // - , // // . end; |
, ᒺ, (Field) (Attribute), , ᒺ, - (Method).
TDictionary. TDictionary - , fWord fPartOfSpeech, f Length - , showinfo . (type).
4.1. - ᒺ [4]
ᒺ . , ᒺ .
, ᒺ. , - ᒺ.
, ᒺ 쳺 . , ᒺ . ᒺ.
, . , ᒺ, .
|
|
. 4.1. ᒺ
ϳ , () ᒺ (Object) - . ᒺ (var):
Var dict: TDictionary; dicts: array [1..100] of TDictionary; |
ᒺ , , (. 4.2.). ᒺ . ֳ ᒺ. ᒺ . ᒺ 䳿, ᒺ .
. 4.2. ᒺ
Object Pascal(Delphi) ᒺ - . , ᒺ. () .
- , () Create (). , procedure constructor. 4.2 .
˳ 4.2 ,
Type // , . TDictionary = class private fWord: string[30]; // fPartOfSpeech: string[30]; // - fLength: byte; // . public constructor Create; // - // ᒺ ( ). procedure showInfo; // - , // // end; |
ᒺ - () ᒺ.
,
dict:= TDictionary.Create |
ᒺ dict.
, , , ᒺ , ᒺ. ᒺ TDictionary:
constructor TDictionary.Create; begin fWord:= ' '; fPartOfSpeech:= ; fLength:= 0; end; |
ϳ ᒺ , ᒺ. ᒺ ᒺ , .
ᒺ , , ᒺ. 䳿 Free. , , ᒺ dict, :
dict.free; |
, . destructor. free .
4.2.
(Visual Component Library, VCL) , . Object Pascal Delphi. VCL , , TObject. , .
|
|
VCL () . ᒺ , ᒺ-. , caption TControl, , , TButton TCheckBox Button CneckBox . . 4.3.
, Delphi, (. 4.3). ᒺ VCL ( Visual Component Library) ᒺ, .
. 4.3. VCL
, ; , ᒺ; .
TObject. ³ "" ᒺ. , ᒺ .
, ᒺ . VCL . ᒺ . :
var SomeList: TStrings SomeList:= TStrings.Create SomeList.Free |
TObject , .
, TObject ᒺ .
TPersistent (, ) TObject. ³ ᒺ . , ᒺ ᒺ.
Tomponent . . , TComponent, , ᒺ. , .
TControl TComponent. . , TControl, . , 쳺 GUI (Graphic User Interface ) .
TWinControl . ³ TControl .
TWinControl TCustomControl. ³ , ᒺ, .
|
|
TCustomControl , ( ) Windows: , .
( ) TGraphicControl, TControl.
Delphi, .
, , . ᒺ, .[5]
:
1. - .
2. ᒺ.
3. .
4. .
5. 䳿.
6. ᒺ.
7. Delphi (VCL).
˳:
.. Delphi. Delphi. 2006 . - 1152 .
2. .. Delphi 2006. : Delphi, , Win32 .NET, 2006 . - 1152 .