var ball: byte;
Begin
ball:=0;
if TestDlg.RadioGroup1.ItemIndex=0 then ball:=ball+1;
if TestDlg.RadioGroup2.ItemIndex=
...
...
ResultDlg.Label1.Caption:= :+ IntToStr (Ball);
ResultDlg.ShowModal;
end;
ә ә ұ 1 ә ң қ, 5 ғ, ғ . ө ғ құң ө ұ ү , қ қ ғғ ө.
procedure TForm1.N6Click(Sender: TObject);
әң қ ә ә ball . ө ұ ғ қ ғ . Ә ғ ұ ә ғ өң қ өң , 0 . ұ ұқ ұ , ң 0 ң ә .. ғқ
if TestDlg.RadioGroup1.ItemIndex=0 then ball:=ball+1;
ө . ұ , қ ң ( ItemIndex=0), ball 1 (ball:=ball+1) қ. қ ғ ұ . TestDlg ң қ ғ. ә ұғ ғ ң ү ғ , Edit ң ә Paste қ , ғ ө ө , ғ ә ө ң.
ғқ
ResultDlg.Label1.Caption:= :+ IntToStr (Ball);
ResultDlg қ Label1 құң Caption қ ' :' ә ә ғ , IntToStr(Ball) (Integer to string өң қ ә ү ғ ) ball ғ ү қ қ .
ResultDlg.ShowModal;
.
Ø ғ , ө ң өң ә ғ ұ ғ құ ү 1500 қ , ұқ қ қ ң. Delphi ң қ ұ ғ 30 қ ғ . Delphi қ ү, ә ә ғқ ү, қңғ қң.
|
|
ұқ:
1. ө ғ ә ң қ ғ ғ ?
2. , ң қ ә қ ?
3. ϳ , ң қ қ, ң қ қң?
4. Delphi қ ұ?
5. Құ ? Құ ң.
6. Құ, құ , құң қ құ , ө ң қ құ қң?
7. Құң қ , ү қ, құ қ ?
8. құ ә ң қ өң.
9. ң ә ң ғқ , қ ө?
10. қ ? ғ қ қ?
11. қ ө ұ?
12. ң құ.
13. ? қ ұ?
14. қғ ? қғғ ң.
15. қғ өң ? қғ өң ң.
16. Қ ғ қ?
17. ө ң ә қ ң?
қ ұ 4 " ң "
Label, Edit, Memo ә Button құ қ.
ғ () ңң ү ғ құ
:
1. қңғ (1 қ ұқ қң) MyFirstProject қ құң ( қ құғ ).
2. ң File | New | Application қ ң қ ң.
3. Form1 құ ң (3.1.1 қң):
4. Label ғң Caption қ ә ң:
A2*X^2+A1*X+A0=0
ә ғ ү ә ғң ң ү қң ә қ ү :
AutoSize False,
WordWrap True,
Alignment taCenter.
ғң ө ә ң ғ қ ұғ .
Font қ ң ә ү ү ғ ң. ғ қң ө 8 10 ғ өң. OK ң.
|
|
5. Label2, Label3 ә Label4 ғ ү Caption қ A0=, A1= ә A2= - ң ә ң.
6. Edit1, Edit2 ә Edit3 қ ү Text қң ә ғ ң ң.
7. Memo1 құ ү Lines қ ңң ә ү ү ғ ң. ғ String List Editor Memo1 ң. OK ң.
8. Button1 ә Button2 ң Caption қ ә ә ң.
9. қ ң ә OnClick қғ өң қң:
procedure TForm1.Button1Click(Sender: TObject);
Var
a0, a1, a2, d, x1, x2: Double;
Begin
a0:= StrToFloat (Edit1.Text);
a1:= StrToFloat (Edit2.Text);
a2:= StrToFloat (Edit3.Text);
d:=a1*a1-4*a2*a0;
IF d>=0 THEN
BEGIN
x1:= (-a1+sqrt(d))/(2*a2);
x2:= (-a1-sqrt(d))/(2*a2);
Memo1.Lines.Add(:);
Memo1.Lines.Add(x1 = + FloatToStrF (x1,ffGeneral,7,2));
Memo1.Lines.Add(x2 = + FloatToStrF (x2,ffGeneral,7,2));
END;
IF d<0 THEN
Memo1.Lines.Add( :);
end;
ғ қ қ .
10. F12 ң ә қ ң. қ ң әOnClick қғ өң қң
Memo1.Clear;
11. C:\\ \\ MyFirstProject қ қң ә F9 қ қ қң. ң ү ң ә ң. ү ң ( 3.1.2 қң).
қ ұ 5 " қ ү "
қ ү қң ө құң қ ғ ү . ү ққ. ғғ қ ListBox1 ә ListBox2 құ ұ құң. ң ң. қ үң ө қ ұ өң ұ.
1 . үң . қ қ қ ө. ListBox1 құң DragMode қ dmAutomatic ң, ғ құ ө ң өң . қ dmManual қ, ғ құ үң (, MouseDown қғ ) ә ң қ (BeginDrag ә) ө қ қ . ү ә құ OnStartDrag қғ ө. қ өң қғ ң:
|
|
Color:=clRed;
2 . Құ ү. қң ө құң ү қ ү OnDragOver қғ ө. қғ өңң ққ: Source - үң ө, X,Y қң өң , Accept құ ү ә қ қ ? қ ?, қ . ListBox2 құң қғ ү ң, ListBox1 құ ғү ұқ :
Accept:= Source=ListBox1;
3 . қ қ құқ қ. Құ қң қ ә ү OnDragDrop қғ ө. қғң өң ү ә қ . ң ғ қ ң қ қ. ListBox2.OnDragDrop қғң өң ListBox1 ListBox2 қ ң:
with ListBox1 do ListBox2.Items.Add(Items[ItemIndex]);
4 .ү қ. Құ - үң ө қ ә OnEndDrag қғ ө, ң Target қ қ құқ ә (ң ғ ListBox2). ұ қғң өң ң ғ ә ң ү ө ң:
if Target = ListBox2 then
with ListBox1 do Items.Delete(ItemIndex);
Color:= clYellow;
ң ә ү ң ұ ң.