Введение в Delphi. Рудалев В.Г - 12 стр.

UptoLike

Составители: 

12
Hldhfibebjmcl_b\uihegbl_ijh_dl
J_amevlZl_]hjZ[hlu[m^_lbf_lv
ke_^mxsbc\b^
 Fh^bnbpbjm_f ijh_dl >ey \u^_e_ggh]h dhfihg_glZ Edit1 gZc^bl_ \
bgki_dlhj_ h[t_dlh\ kh[ulb_ OnChange \hagbdZxs__ ijb baf_g_gbb l_dklZ
\gmljbTEditjZkdjhcl_dhf[bgbjh\ZgguckibkhdgZijhlb\OnChangeb\u[_
jbl_\g_fm`_kha^Zgguch[jZ[hlqbdkh[ulbcButton1ClickL_i_jvwlZijhp_
^mjZ[m^_l\uau\ZlvkyijbgZklmie_gbbkh[ulbyOnChangeke_^h\Zl_evgh\u
qbke_gby[m^mlijhbkoh^blvkbgojhggh k\\h^bfufl_dklhfM[_^bl_kv\wlhf
\uihegb\ijh_dl
AZ^Zgby
.
>hjZ[hlZcl_ijh_dlij_^mkfhlj_\h[jZ[hldmhrb[hdijb\\h^_
Zj]mf_glZ
GZc^bl_ gZ iZeblj_ dhfihg_glh\ b bkihevamcl_ ^jm]b_ kj_^kl\Z
ijb]h^gu_^ey\\h^Z^Zgguo
EZ[hjZlhjgZyjZ[hlZ
L_fZDeZkkTStrings
DeZkkTStrings
h^bg ba hkgh\hiheZ]Zxsbo deZkkh\ \
Delphi.
JZ[hlZ
hq_gv fgh]bo dhfihg_glh\ ihkljh_gZ gZ bf_xs_fky \ bo khklZ\_ k\hckl\_
deZkkZTStrings
.
GZijbf_jwlhk\hckl\h Items
mListBox b RadioGroup
,
Lines
m
Memo
b l^ b li DeZkk TStringsijbf_gy_lky ^ey ojZg_gby ex[uo h[t_dlh\
gZke_^gbdh\ deZkkZ
TObject
b k\yaZgguo k gbfb l_dklh\uo kljhd K\hckl\Z
deZkkZTStringsgZau\ZxlkygZ[hjZfbkljhd
TStrings
Z[kljZdlgucdeZkkH[jZlblvkydg_fmfh`ghebrvijb©ih
kj_^gbq_kl\_ªkhhl\_lkl\mxs_]hdhfihg_glZ?kebg_h[oh^bfhkha^Zlvwda_f
ieyjdeZkkZTStrings \g_dhfihg_glh\bkihevamcl_h[t_dl
-
ihlhfhdTStringList
,
gZke_^mxsbck\hckl\Zbf_lh^uTStrings. GZijbf_j
var SL: TStringList;
begin
6/ 76WULQJ/LVWFUHDWHGhg_6/ 76WULQJFUHDWH
6/DGGµKljhdZ¶
end;
DkljhdZfbh[t_dlZfojZgysbfky\TStrings, fh`ghh[jZlblvkykihfh
svxbg^_dkbjh\Zgguok\hckl\
property Strings[i: integer]: string; default;
property Object [i: integer]: TObject;
:ljb[mldefault hagZqZ_lqlhbfybg^_dkbjh\Zggh]hk\hckl\Zfh`_l[ulv
hims_ghgZijbf_jke_^mxsb_h[jZs_gbyjZ\ghagZqgu:
/LVW%R[LWHPVVWULQJV>@ ¶KljhdZ¶
                                         12

     Hldhfibebjmcl_b\uihegbl_ijh_dl J_amevlZl_]hjZ[hlu[m^_lbf_lv
ke_^mxsbc\b^




       Fh^bnbpbjm_f ijh_dl >ey \u^_e_ggh]h dhfihg_glZ Edit1 gZc^bl_ \
bgki_dlhj_ h[t_dlh\ kh[ulb_ OnChange \hagbdZxs__ ijb baf_g_gbb l_dklZ
\gmljbTEditjZkdjhcl_dhf[bgbjh\ZgguckibkhdgZijhlb\OnChangeb\u[_
jbl_\g_fm`_kha^Zgguch[jZ[hlqbdkh[ulbcButton1ClickL_i_jvwlZijhp_
^mjZ[m^_l\uau\ZlvkyijbgZklmie_gbbkh[ulbyOnChangeke_^h\Zl_evgh\u
qbke_gby[m^mlijhbkoh^blvkbgojhgghk\\h^bfufl_dklhfM[_^bl_kv\wlhf
\uihegb\ijh_dl
      AZ^Zgby. >hjZ[hlZcl_ijh_dlij_^mkfhlj_\h[jZ[hldmhrb[hdijb\\h^_
Zj]mf_glZ GZc^bl_ gZ iZeblj_ dhfihg_glh\ b bkihevamcl_ ^jm]b_ kj_^kl\Z
ijb]h^gu_^ey\\h^Z^Zgguo

      EZ[hjZlhjgZyjZ[hlZ‹
      L_fZDeZkkTStrings

     DeZkk  TStrings –  h^bg ba hkgh\hiheZ]Zxsbo deZkkh\ \ Delphi. JZ[hlZ
hq_gv fgh]bo dhfihg_glh\ ihkljh_gZ gZ bf_xs_fky \ bo khklZ\_ k\hckl\_
deZkkZ  TStrings. GZijbf_j wlh k\hckl\h Items m ListBox b RadioGroup, Lines m
Memo b l^ b li DeZkk TStrings  ijbf_gy_lky ^ey ojZg_gby ex[uo h[t_dlh\
gZke_^gbdh\ deZkkZ TObject b k\yaZgguo k gbfb l_dklh\uo kljhd K\hckl\Z
deZkkZTStringsgZau\ZxlkygZ[hjZfbkljhd
     TStrings –Z[kljZdlgucdeZkkH[jZlblvkydg_fmfh`ghebrvijb©ih
kj_^gbq_kl\_ªkhhl\_lkl\mxs_]hdhfihg_glZ?kebg_h[oh^bfhkha^Zlvwda_f
ieyjdeZkkZTStrings \g_dhfihg_glh\bkihevamcl_h[t_dl-ihlhfhdTStringList,
gZke_^mxsbck\hckl\Zbf_lh^uTStrings. GZijbf_j
      var SL: TStringList;
      begin
      6/ 76WULQJ/LVWFUHDWHGhg_6/ 76WULQJFUHDWH
      6/DGG µKljhdZ¶ 
         …
      end;
     DkljhdZfbh[t_dlZfojZgysbfky\TStrings, fh`ghh[jZlblvkykihfh
svxbg^_dkbjh\Zgguok\hckl\
      property Strings[i: integer]: string; default;
      property Object [i: integer]: TObject;
     :ljb[mldefault hagZqZ_lqlhbfybg^_dkbjh\Zggh]hk\hckl\Zfh`_l[ulv
hims_ghgZijbf_jke_^mxsb_h[jZs_gbyjZ\ghagZqgu:
      /LVW%R[LWHPVVWULQJV>@ ¶KljhdZ¶