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

UptoLike

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

13
ListBoxLWHPV>@ ¶KljhdZ¶
>eyijh]jZffbklZk\hckl\hlbiZTStrings\u]ey^bldZdh[uqgucfZkkb\
kljhdghbg^_dk\lZdhffZkkb\_gZoh^blky\^bZiZahg_p_euoqbk_e
- 32767.
Ijbf _j Items[0]:=’text1’
-
aZibkZlv kljhdm \
-
c we_f_gl gZ[hjZ kljhd
Items[1]:=’text2’
-
\h \lhjhcwe_f_glbl^H[s__ qbkehkljhdfh`ghhij_^_
eblvh[jZlb\rbkvdk\hckl\mCountlbiintegerdeZkkZTStrings
.
DeZkk TStrings lZd`_ ijbf_gy_lky ^ey ojZg_gby iZj \b^Z©iZjZf_lj
-
agZq_gb_ªIjbql_gbbaZibkbk\hckl\Z
property Values[const Name: string]: string;
bs_lkykljhdZkh^_j`ZsZy
ih^kljhdm\b^ZName=agZq_gb_
b\ha\jZsZ
_lkyaZibku\Z_lkyagZq_gb_ihke_kbf\heZ
= .
GZijbf_j
ListBox1.Items.Values[‘y’]:=1;
ijb\_^_ldihy\e_gbx\kibkd_kljhdby=1
.
>jm]b_k\hckl\Zbf_lh^udeZkkZTStrings:
property Count: inte-
ger;
QbkehiZjkljhdbh[t_dlh\
function Add(const S:
string): integer;
>h[Z\ey_lkljhdm\dhg_pgZ[hjZb\ha\jZ
sZ_lijbk\h_gguc_cghf_j
function AddOb-
ject(const S: string;
AObject: Tobject): in-
teger;
>h[Z\ey_l kljhdm b h[t_dl <ha\jZsZ_l
ijbk\h_gguciZj_ghf_j
procedure AddStrings
(Strings: TStrings);
>h[Z\ey_l\ dhg_p gZ[hjZ ^jm]hc gZ[hj
TSrings.
procedure InsertObject
(I: integer; const S:
string; AObject: TOb-
ject);
<klZ\ey_l h[t_dl AObject b kljhdm6ih^
bg^_dkhf,
procedure Delete (I:
integer);
M^Zey_lkljhdmkbg^_dkhf,
function IndexOf
(const S: string):
integer;
<ha\jZsZ_l ghf_j \ gZ[hj_ kljhdb6?keb
hgZg_gZc^_gZnmgdpby\ha\jZsZ_l-1.
function Equals
(Strings: TStrings):
boolean;
KjZ\gb\Z_l gZ[hj kljhd \ua\Z\r_]h wlhl
f_lh^h[t_dlZkgZ[hjhf6WULQJVb \ha\jZsZ
_l7UXH_kebhgbkh\iZ^Zxl
procedure
Move(I1,I2:integer);
I_j_f_sZ_l iZjm kljhdZh[t_dl k ihabpbb
I1 \ihabpbxI2.
procedure Exchange
(I1,I2: integer);
F_gy_lf_klZfbiZjukljhdZh[t_dlk
bg^_dkZfbI1 bI2.
procedure LoadFromFile
(const FileName:
string);
AZ]jm`Z_lgZ[hjkljhdbanZceZ
procedure SaveToFile
(const FileName:
string);
KhojZgy_lgZ[hjkljhd\nZce_
JZkkfhljbfke_^mxsbcijbf_jKha^Z^bfijbeh`_gb_\dhlhjhf\u
[jZggu_dghidb©ijyqmlkyª\kibkd_ListBoxZ ijb\u[hj_bobakibkdZihy\
eyxlkygZij_`g_ff_kl_>hklmidkh^_j`bfhfmkibkdZijhbkoh^blq_j_a
                                         13

      ListBoxLWHPV>@ ¶KljhdZ¶
      >eyijh]jZffbklZk\hckl\hlbiZTStrings\u]ey^bldZdh[uqgucfZkkb\
kljhdghbg^_dk\lZdhffZkkb\_gZoh^blky\^bZiZahg_p_euoqbk_e- 32767.
Ijbf_j Items[0]:=’text1’ - aZibkZlv kljhdm \ -c we_f_gl gZ[hjZ kljhd
Items[1]:=’text2’ - \h \lhjhc we_f_gl b l^ H[s__ qbkeh kljhd fh`gh hij_^_
eblvh[jZlb\rbkvdk\hckl\mCount lbiinteger deZkkZTStrings.
      DeZkk TStrings lZd`_ ijbf_gy_lky ^ey ojZg_gby iZj \b^Z ©iZjZf_lj-
agZq_gb_ªIjbql_gbb aZibkb k\hckl\Z
      property Values[const Name: string]: string;
      bs_lkykljhdZkh^_j`ZsZy ih^kljhdm\b^ZName=agZq_gb_ b\ha\jZsZ
_lky aZibku\Z_lky agZq_gb_ihke_kbf\heZ= .GZijbf_j
 ListBox1.Items.Values[‘y’]:=1; ijb\_^_ldihy\e_gbx\kibkd_kljhdby=1.
      >jm]b_k\hckl\Zbf_lh^udeZkkZTStrings:
property Count: inte-        QbkehiZjkljhdbh[t_dlh\
ger;
function Add(const S:         >h[Z\ey_lkljhdm\dhg_pgZ[hjZb\ha\jZ
string): integer;
                              sZ_lijbk\h_gguc_cghf_j
function AddOb-               >h[Z\ey_l kljhdm b h[t_dl h[Z\ey_l  \ dhg_p gZ[hjZ ^jm]hc gZ[hj
(Strings: TStrings);
                              TSrings.
procedure InsertObject        hklmidkh^_j`bfhfmkibkdZijhbkoh^blq_j_a