Delphi tilida

procedure TForml.ButtonlClick(Sender: TObject); 
const 
N=10; 
var 
map:array[l..N,l..N] of integer; 
road:array[l..N]of integer; 
incl:array[l..N]of boolean; 
start,finish:integer; 
found:boolean; i,j:integer; 
len:integer; 
c_len:integer; 
procedure step(s,f,p:integer); 
Var 
c:integer; 
i:integer; 
begin 
if s=f then begin 
found:=TRUE; 
len:=c_len; 
Label4.caption:=Label4.caption+#13+' Yo‘l:'; 
for i:=l to p-1 do 
Label4.caption:=Label4.caption+' 
+IntToStr(road[i]); 
Label4.caption:=Label4.caption 
+', uzunlik:'+IntToStr(len)+#13; 
end 
else begin 
for c:=l to N do 
begin 
if(map[s,c]<> 0)and(NOT incl[c]) 
and((len=0)or(c_len+map[s,c]< len)) 
then begin 
road[p]:=c; 
incl[c]:=TRUE; 

182 

end; 
begin 
Labell.caption:=' "; 
for i:=l to N do road[i]:=0; 
for i:=l to N do incl[i]:=FALSE; 
for i:=l to N do 
for j:=l to N do 
if StringGridl.Cells[i,j] <> " 
then map[i,j]:=StrToInt(StringGridl.Cells[i, j]) 
else map[ij]:=0; 

S a v o 11 a r 

1. 

8. 

Rekursiya nima va rekursiv funksiya deb qanday funksiyaga aytiladi? 

183 

VII. DELPHI QO‘SHIMCHA KOMPONENTALARI 

7.1. ADDITIONAL sahifasining komponentalari 
TSpeedButton va TBitBtn tugmalari 

Bu tugmalar TButton vazifalarini bajaradi. Yagona farqi matndan 
tashqari rasmlarni ham aks ettiradi. TSpeedButton tugmasi fokus 
olmaydi. Bu shuni bildiradiki, agar matn qatorida satr terib, bu tugma 
bosilsa, shu hodisa qayta ishlangandan so‘ng f ng fokus yana matn qatoriga 
qaytib keladi. TAB tugmasi bilan bu tugmani ajratib bolmaydi. 

r rl—' Adidunri [ \vm49 | 

| 

/ \ 

Tugmaga rasm o‘rnatish uchun ikki marta Glyph xossasi qatoriga 

chertish lozim. Natijada rasm paydo bolgan yuklash oynasida Load 
tugmasini bosish lozim. Ko'p rasmlar Program Files\Common 
Files\Borland Shared\Images \Buttons katalogida joylashgandir. 

_sl 

—0.x I 

184 

TBitBtn va TSpeedButton  tugmalari deyarli bir xil xossalarga egadir.
Ular uchun umumiy Layout xossasi rasm va matnning o'zaro 
joylashuvini o‘zgartirishga imkon beradi. Quyidagi rasmda har xil
qiymatlarga mos variantlari ko‘rsatilgan: 

Rkitvi 
BtttCfl C 

E 

qaytaradigan natijani tanlashga imkon beradi. 
TSpeedButton tugmasining Grouplndex xossasi tugmalarni 
guruhlashga imkon beradi. Buning uchun bir gumhga tegishli 
tugmalaming Grouplndexxossasibir xil qiymatga, masalan 1 ga teng 
bolishi kerak. Qumqlangan tugmalarning biri bosilsa, qolganlaridan 
ajralib qoladi. Buning uchun Down xossasi qiymati true ga teng 
bolishi kerak. 

XAbo.1 
^ A I

bkAbort 
bkAll 

® No 
y OK 

bkNo 
bkOK 

jicto* bkClose 
bkRetiy 

7 ti«p 
bkHelp 
1 « 
bkYes 

.gnore 

bklngore