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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

20
q_ghbg^_dkbjh\Zggh_k\hckl\hCellsh[jZs_gb_ddhlhjhfmijhbkoh^bldZdd
^\mf_jghfmfZkkb\m
DZdgbkljZgghi_j\ucbg^_dkmCells
-
ghf_jklhe[pZZ\lhjhc
-
ghf_j
kljhdbqlhhlebqZ_lkyhlh[s_ijbgylhcfZl_fZlbq_kdhcljZ^bpbbIhwlhfm
Z\lhjijbghkblba\bg_gbyaZi_j_klZ\e_ggu_bg^_dku\gb`_ke_^mxs_fnjZ]
f_gl_dh^Z
<dZq_kl\_ijbf_jZgZibr_fijh]jZffm^eymfgh`_gby^\mofZljbp
JZaf_klbl_gZnhjf_ljbdhfihg_glZTStringGridbmklZgh\bl_bok\hc
kl\hName\A,B,Ckhhl\_lkl\_gghLZ[ebpZC[m^_lkh^_j`Zlvj_amevlZlmfgh
`_gby>ey\k_olZ[ebpmklZgh\bl_\bgki_dlhj_h[t_dlh\agZq_gbyk\hckl\
ColCountbRowCountjZ\gu_FixedRows
- 0,
FixedCols
=0,
Options
.
GoEditing
-
True>h[Z\vl_LabelkgZ^ibkvxX
,
ButtonkgZ^ibkvx kfjbk, Edit1Ijb
baf_g_gbbkh^_j`bfh]hEdit1 jZaf_jghklbfZljbp^he`gukhhl\_lkl\_gghba
f_gylvky
GZibrbl_h[jZ[hlqbdbkh[ulbcOnClick b OnChange
procedure TForm1.Button1Click(Sender: TObject);
var i,j,k,n, Sum: integer;
begin
n:=A.ColCount-1;
for i:=0 to n do
for j:=0 to n do
begin
Sum := 0;
for k:=0 to n do
Sum:=Sum+StrToInt(A.Cells[k,i])*StrToInt(B.Cells[j,k]);
KKHOO
s[j,i]:=IntToStr(Sum);
end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
var i: integer;
begin
try
i:=StrToInt(Edit1.text);
if i > 0 then
begin
a.colcount:=i; a.rowcount:=i;
b.colcount:=i; b.rowcount:=i;
c.colcount:=i; c.rowcount:=i;
end;
except
6KRZ0HVVDJHG_ijZ\bevguc\\h^
end;
end; 
                                      20

q_ghbg^_dkbjh\Zggh_k\hckl\hCellsh[jZs_gb_ddhlhjhfmijhbkoh^bldZdd
^\mf_jghfmfZkkb\m
      DZdgbkljZgghi_j\ucbg^_dkmCells -ghf_jklhe[pZZ\lhjhc-ghf_j
kljhdbqlhhlebqZ_lkyhlh[s_ijbgylhcfZl_fZlbq_kdhcljZ^bpbbIhwlhfm
Z\lhjijbghkblba\bg_gbyaZi_j_klZ\e_ggu_bg^_dku\gb`_ke_^mxs_fnjZ]
f_gl_dh^Z
      <dZq_kl\_ijbf_jZgZibr_fijh]jZffm^eymfgh`_gby^\mofZljbp
      JZaf_klbl_gZnhjf_ljbdhfihg_glZTStringGridbmklZgh\bl_bok\hc
kl\hName\A,B,Ckhhl\_lkl\_gghLZ[ebpZC[m^_lkh^_j`Zlvj_amevlZlmfgh
`_gby>ey\k_olZ[ebpmklZgh\bl_\bgki_dlhj_h[t_dlh\agZq_gbyk\hckl\
ColCountbRowCountjZ\gu_FixedRows - 0, FixedCols=0, Options.GoEditing -
True>h[Z\vl_LabelkgZ^ibkvxX , ButtonkgZ^ibkvx  kfjbk , Edit1Ijb
baf_g_gbbkh^_j`bfh]hEdit1 jZaf_jghklbfZljbp^he`gukhhl\_lkl\_gghba
f_gylvky




     GZibrbl_h[jZ[hlqbdbkh[ulbcOnClick b OnChange
     procedure TForm1.Button1Click(Sender: TObject);
     var i,j,k,n, Sum: integer;
     begin
       n:=A.ColCount-1;
       for i:=0 to n do
       for j:=0 to n do
       begin
          Sum := 0;
          for k:=0 to n do
            Sum:=Sum+StrToInt(A.Cells[k,i])*StrToInt(B.Cells[j,k]);
     KKHOOs[j,i]:=IntToStr(Sum);
          end;
     end;
     procedure TForm1.Edit1Change(Sender: TObject);
     var i: integer;
     begin
       try
          i:=StrToInt(Edit1.text);
          if i > 0 then
          begin
            a.colcount:=i; a.rowcount:=i;
            b.colcount:=i; b.rowcount:=i;
            c.colcount:=i; c.rowcount:=i;
          end;
       except
     6KRZ0HVVDJH G_ijZ\bevguc\\h^ 
       end;
     end;

Страницы