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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

9
JZkkfhljbfkljmdlmjmgZibkZggh]h<Zfbkihfhsvx'HOSKLijh]jZffgh
]h fh^mey 8QLWSDV H[jZlbl_ \gbfZgb_ qlh lhevdh kljhdb \u^_e_ggu_`bj
gufrjbnlhfgZibkZgu<Zfbkh[kl\_gghjmqgh
unit Unit1; AZ]heh\hdfh^mey
interface K_dpbybgl_jn_ckZhldjuluohibkZgbc
uses Ih^dexq_gb_klZg^Zjlguofh^me_c
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls;
type HibkZgb_deZkkZnhjfu
TForm1=class(TForm) <ZrZnhjfZgZke_^m_lhldeZkkZ7)RUP
Button1: TButton;Dhfihg_glujZaf_s_ggu_<Zfb\bamZevgh
Button2: TButton; \dexqZxlky\hibkZgb_deZkkZnhjfu
Button3: TButton; dZdh[uqgu_ihey
Panel1: TPanel;
procedure Button1Click(Sender:TObject);
procedure Button2Click(Sender: TObject);
H[jZ[hlqbdbkh[ulbc^ey\k_odhfihg_glh\\oh^yl
\hibkZgb_deZkkZnhjfu
private
{ Private declarations }
public
{ Public declarations }
end;
var Form1:TForm1;//H[ty\e_gb_i_j_f_gghclbiZ7)RUP
implementation // K_dpbyj_ZebaZpbbfh^mey
{$R *.DFM} >bj_dlb\ZdhfibeylhjmaZklZ\eyxsZy_]h\dexqblv
\bkihegy_fucnZce\bamZevgh_hibkZgb_nhjfuk\yaZggh_k
^Zgguffh^me_fHibkZgb_ojZgblkygZ^bkd_\hl^_evghf
h^ghbf_gghfnZce_kjZkrbj_gb_f')0gZijbf_j^ey
fh^mey8QLWSDV\nZce_8QLWGIP
>Ze__jZkiheZ]Zxlkyh[jZ[hlqbdbkh[ulbc
procedure TForm1.Button1Click(Sender: TObject);
begin
3DQHO&DSWLRQ ¶GZ`ZlZdghidZKlZjl
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
KORVH
end;
procedureTForm1.Button3Click(Sender: TObject);
begin
3DQHO&DSWLRQ ¶GZ`ZlZdghidZ¶%XWWRQ&DSWLRQ
end;
end.
NZce ijh_dlZ SURMHFWGSU [ue k]_g_jbjh\Zg 'HOSKL iheghklvxkZfhklhy
l_evgh<hl_]hl_dkl
program Project1;
uses Forms,
Unit1 in ‘Unit1.pas’ {Form1}; // Fh^mebbijh_dlfh]ml
jZkiheZ]Zlvky\jZaguodZlZeh]Zo
{$R *.RES} //<dexq_gb_nZceZj_kmjkh\\bkihegy_fucnZce
begin
Application.Initialize; // BgbpbZebaZpbyijbeh`_gby
// Kha^Zgb_]eZ\ghcnhjfuijbeh`_gby 
                                         9

      JZkkfhljbfkljmdlmjmgZibkZggh]hbj_dlb\ZdhfibeylhjmaZklZ\eyxsZy_]h\dexqblv
     \bkihegy_fucnZce\bamZevgh_hibkZgb_nhjfuk\yaZggh_k
^Zgguffh^me_fHibkZgb_ojZgblkygZ^bkd_\hl^_evghf
     h^ghbf_gghfnZce_kjZkrbj_gb_f')0gZijbf_j^ey
fh^mey8QLWSDV\nZce_8QLWGIP
     >Ze__jZkiheZ]Zxlkyh[jZ[hlqbdbkh[ulbc
     procedure TForm1.Button1Click(Sender: TObject);
     begin
     3DQHO&DSWLRQ ¶GZ`ZlZdghidZKlZjl¶
     end;
     procedure TForm1.Button2Click(Sender: TObject);
     begin
     KORVH
     end;
     procedureTForm1.Button3Click(Sender: TObject);
     begin
     3DQHO&DSWLRQ ¶GZ`ZlZdghidZ¶%XWWRQ&DSWLRQ
     end;
     end.
     NZce ijh_dlZ SURMHFWGSU [ue k]_g_jbjh\Zg 'HOSKL iheghklvx kZfhklhy
l_evgh

Страницы