Алматы экономика және статистика академиясы

83 
 
case RadioGroup1.ItemIndex of 
0: Edit1.Font.Style:=[]; 
1: Edit1.Font.Style:=[fsItalic]; 
2: Edit1.Font.Style:=[fsBold]; 
3: Edit1.Font.Style:=[fsItalic,fsBold]; 
end; 
CheckListBox1ClickCheck(Self); 
9. 
RadioGroup2 
компонентіне келесі опреаторды еңгіземіз OnClick: 
case RadioGroup2.ItemIndex of 
0: Edit1.Font.Size:=8; 
1: Edit1.Font.Size:=10; 
2: Edit1.Font.Size:=12; 
3: Edit1.Font.Size:=14; 
end 
10. 
RadioGroup3 компонентіне  OnClick оқиғасының опреаторын еңгіземіз: 
case RadioGroup3.ItemIndex of 
0: Edit1.Font.Color:=clBlack; 
1: Edit1.Font.Color:=clGreen; 
2: Edit1.Font.Color:=clRed; 
3: Edit1.Font.Color:=clBlue; 
end 
11. 
CheckListBox1 
компонентіне OnClickCheck, оқиғасын жазамыз: 
if CheckListBox1.Checked[0] 
then Edit1.Font.Style:=Edit1.Font.Style+[fsStrikeOut] 
else Edit1.Font.Style:=Edit1.Font.Style-[fsStrikeOut]; 
if CheckListBox1.Checked[1] 
then Edit1.Font.Style:=Edit1.Font.Style+[fsUnderline] 
else Edit1.Font.Style:=Edit1.Font.Style-[fsUnderline]; 
12. 
Басты  менюдегі  File/Save  All  командасын  орындаймыз.  Run/Run  командасы 
арқылы қосымшаны орындауға жібереміз. 
 
Модульдің қалыптасуының толық текстін көрсетеміз. 
 

84 
 
unit RadioGroup; 
interface 
 
uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls, ExtCtrls, CheckLst; 
type 
TForm1 = class(TForm) 
RadioGroup1: TRadioGroup; 
RadioGroup2: TRadioGroup; 
RadioGroup3: TRadioGroup; 
CheckListBox1: TCheckListBox; 
Edit1: TEdit; 
Label1: TLabel; 
Label2: TLabel; 
procedure RadioGroup1Click(Sender: TObject); 
procedure RadioGroup2Click(Sender: TObject); 
procedure RadioGroup3Click(Sender: TObject); 
procedure CheckListBox1ClickCheck(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 
 
var 
Form1: TForm1; 
 
implementation 
 
{$R *.DFM} 
procedure TForm1.RadioGroup1Click(Sender:TObject); 
begin 
case RadioGroup1.ItemIndex of 
0: Edit1.Font.Style:=[]; 
1: Edit1.Font.Style:=[fsItalic]; 
2: Edit1.Font.Style:=[fsBold]; 
3: Edit1.Font.Style:=[fsItalic,fsBold]; 
end; 
CheckListBox1ClickCheck(Self); 
end; 
 
procedure TForm1.RadioGroup2Click(Sender:TObject); 
begin 
case RadioGroup2.ItemIndex of 
0: Edit1.Font.Size:=8; 
1: Edit1.Font.Size:=10; 
2: Edit1.Font.Size:=12; 
3: Edit1.Font.Size:=14; 
end 
end; 
 

85 
 
procedure TForm1.RadioGroup3Click(Sender:TObject); 
begin 
case RadioGroup3.ItemIndex of 
0: Edit1.Font.Color:=clBlack; 
1: Edit1.Font.Color:=clGreen; 
2: Edit1.Font.Color:=clRed; 
3: Edit1.Font.Color:=clBlue; 
end 
end; 
 
procedure TForm1.CheckListBox1ClickCheck(Sender:TObject); 
begin 
if CheckListBox1.Checked[0] 
then Edit1.Font.Style:=Edit1.Font.Style+[fsStrikeOut] 
else Edit1.Font.Style:=Edit1.Font.Style-[fsStrikeOut]; 
if CheckListBox1.Checked[1] 
then Edit1.Font.Style:=Edit1.Font.Style+[fsUnderline] 
else Edit1.Font.Style:=Edit1.Font.Style-[fsUnderline]; 
end; 
 
end. 
 
Тәжірибелік жұмыс  №8 
Бір өлшемді массивтерді өңдеу программалары. ListBox компоненті 
Тапсырма. 
А(10)  массивінде  максимумды  және  минимумді  элементтерін,  олардың  орын 
ауыстыруын табу. 
Шешімі. 
1.Жаңа жобаға D:\My Project\LBOX папкасын құрамыз. 
2. Баспа менюдегі File/New/Application командасын қолданып жаңа жоба ашамыз. 
3. Standard бетінен  Form1 формаға келесі компоненттерді еңгіземіз. Олар: Edit, Button, 
ListBox. 
 

86 
 
4.    Инспектора  Объектов  арқылы  Edit1  компонентіне  Text  қасиетіне  бос  жол 
қалдырамыз. Сол кнопкаға Caption қасиетіне тең етіп мән береміз: ‘Ввод’, ал оң кнопкаға - 
‘Решение’. 
5. Interface 
бөлімінде массив берілгенін қоямыз және ол төменде көрсетілген: 
A: array [1…10] of integer; 
I, min, max, Imax, imin: integer; 
6. Form1 
формасына екі рет басып, On Create оқиғасы формаға құрылады: 
I: =0 
ListBox1. Clear 
ListBox2. Clear; 
7.  «
Ввод»кнопкасын екі рет басу арқылы белсенділігін ояту және  On Click оқиғасына 
келесі кодты еңгіземіз: 
ListBox1. Items. Add (Edit. Text); 
I: =I+1; 
A [I]: =StrToInt (Edit. Text); 
Edit1. Set Focus 
8.  «
Решение»  кнопкасын  екі  рет  басу  арқылы  іс-қимылға  жұмылдыру  және  келесі 
текстті орналастырамыз: 
max:=a[1]; 
imax:=1; 
min:=a[1]; 
imin:=1; 
for k:=2 to 10 do 
begin 
if maxbegin 
max:=a[k]; 
imax:=k 
end; 
if min>a[k] then 
begin 
min:=a[k]; 
imin:=k 
end; 
end; 
a[imax]:=min; 
a[imin]:=max; 
for k:=1 to 10 do 
ListBox2.Items.Add(IntToStr(a[k])); 
 
9. Edit 1
жолын  еңгізу  үшін  OnKeyDown  оқиғасына  қосымша  құру  жұмысын  өңдеу 
құрамыз.Enter клавишасын басқанда «Ввод» кнопкасына еңгізу фокусы көшеді: 
If key=13 then Button1. Set Focus 
10. 
Басты менюдегі File/Save All командасы арқылы жобаны сақтаймыз. 
11. F9 
клавишасы  арқылы  жобаны  іске  орындауға  жібереміз.  Барлық  санды  еңгізіп 
отырғанда  Enter-ді  немесе  «Ввод»  кнопкасын  басып  отырамыз.  Еңгізілген  сандар  бірінші 
тізімде көрініп тұрады.  «Решение»   клавишасын басқанда екінші қатардан нәтижесін алып 
отырамыз.