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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

18
a\Zgbyfbk\hckl\hName
)
File1, Help1Kha^Zcl_gbkiZ^Zxsb_f_gx^eyimgd
lZFile - Open, Save, SaveAs, ExitbimgdlZHelp - AboutklZdbfb`_agZq_gbyfb
Name
.
Ihf_klbl_ih^ihehkhcf_gxPanelbjZkiheh`bl_gZg_cljbdghidb
[ukljh]h ^hklmiZSpeedButton IZg_ev y\ey_lky dhgl_cg_jhf ^ey jZaf_s_g
guo gZ g_cdhfihg_glh\ihwlhfmdghidb[m^mli_j_f_sZlvky\f_kl_k iZg_
evx<u[_jbl_k\hckl\hGliph^eygZg_k_gbybah[jZ`_gbcgZdghidZo NZceu
kbah[jZ`_gbyfbgZoh^ylkygZ^bkd_\dZlZeh]_
\Delphi\Image\Buttons.
GZc^bl_
bah[jZ`_gby ^ey h[hagZq_gby hldjulby b khojZg_gby nZceZ b \uoh^Z ba
ijh]jZffuNhjfZijbf_l\b^
Kha^Zcl_h[jZ[hlqbdbkh[ulbc\u[hjZimgdlZf_gxs_edgm\^\ZjZaZ
ihimgdlmf_gx
procedure TForm1.OpenClick(Sender: TObject);
begin
with OpenDialog1 do
if Execute then
begin
F_lh^([HFXWHaZimkdZ_l^bZeh]b\ha\jZsZ_l7UXH_keb
//
^ey\uoh^Zba^bZeh]Z[ueZgZ`ZlZdghidZ2.l_nZce[ue
//
\u[jZg
Memo1.Lines.LoadFromFile(FileName);//AZ]jm`Z_l\l_dklh\uc
j_^ZdlhjnZcekaZ^Zggufbf_g_f
HistoryList.Add(FileName);//>h[Z\ey_lbfynZceZ\©bklhjbxª
&DSWLRQ ¶;ehdghl
-’+ExtractFileName (FileName); //Nmgdpby
([WUDFW)LOH1DPH\ha\jZsZ_lbfynZceZ[_aimlbdhlhjh_
aZl_fhlh[jZ`Z_lky\aZ]heh\d_nhjfu
SaveDialog1.FileName:=FileName; //AZihfbgZ_lkybfy
//
hldjulh]hnZceZ
end;
end;
procedure TForm1.SaveClick(Sender: TObject);
begin
if OpenDialog1.FileName<>’’ then
//?kebbfyg_imklhlhbkihevah\Zlv_]h^eykhojZg_gbynZceZ
Memo1.Lines.SaveToFile(SaveDialog1.FileName)
else //bgZq_\ua\Zlvh[jZ[hlqbdKhojZgblvDZd
SaveAsClick(Sender);
end;
procedure TForm1.SaveAsClick(Sender: TObject); 
                                        18

a\Zgbyfb k\hckl\hName) File1, Help1Kha^Zcl_gbkiZ^Zxsb_f_gx^eyimgd
lZFile - Open, Save, SaveAs, ExitbimgdlZHelp - AboutklZdbfb`_agZq_gbyfb
Name.
       Ihf_klbl_ih^ihehkhcf_gxPanelbjZkiheh`bl_gZg_cljbdghidb
[ukljh]h ^hklmiZ SpeedButton  IZg_ev y\ey_lky dhgl_cg_jhf ^ey jZaf_s_g
guo gZ g_c dhfihg_glh\ ihwlhfm dghidb [m^ml i_j_f_sZlvky  \f_kl_ k iZg_
evxh[Z\ey_lbfynZceZ\©bklhjbxª
      &DSWLRQ ¶;ehdghl-’+ExtractFileName (FileName); //Nmgdpby
([WUDFW)LOH1DPH\ha\jZsZ_lbfynZceZ[_aimlbdhlhjh_
aZl_fhlh[jZ`Z_lky\aZ]heh\d_nhjfu
        SaveDialog1.FileName:=FileName; //AZihfbgZ_lkybfy
                                         // hldjulh]hnZceZ
       end;
     end;
     procedure TForm1.SaveClick(Sender: TObject);
     begin
       if OpenDialog1.FileName<>’’ then
     //?kebbfyg_imklhlhbkihevah\Zlv_]h^eykhojZg_gbynZceZ
          Memo1.Lines.SaveToFile(SaveDialog1.FileName)
       else //bgZq_\ua\Zlvh[jZ[hlqbdKhojZgblvDZd
          SaveAsClick(Sender);
     end;
     procedure TForm1.SaveAsClick(Sender: TObject);

Страницы