Mirsaid Aripov, Nurillo Otaxanov

StringGrid1 va Edit1 komponentalari uchun OnKeyPress protsedu-rasiga e`tibor bering. Ulardan birinchisi kursorni keyingi yacheykaga yoki Edit1 maydoniga o`tkazsa, ikkinchisi - QIDIRISH tugmasini faollash-tiradi. Qidirishni Enter tugmasi bilan ham boshlash mumkin.

Listing 7.8.

procedure TForm1.Button1Click(Sender: TObject);

const n  9;

var kichik, katta, urta,a,i:integer;

b: array[1..9] of integer;

y,y1,y2 : string;

namuna : integer;

begin

namuna : strtoint(edit1.Text);

for i : 1 to n do

b[i] : StrToInt(StringGrid1.Cells[i-1,0] ) ;

y : 'yuq'; kichik : 1; katta : n ;

while (katta-kichik>1)and(y  'yuq') do begin

a : katta  kichik;

if a mod 2  0 then urta : trunc(a  2)

else urta : trunc(a  2)  1;

y1:y1inttostr(kichik)' ' inttostr(urta) ' '  inttostr(katta) #13;

if namuna  b[urta] then y : 'Ha'

else if namuna > b[urta] then kichik : urta else katta : urta;

end;

if (namuna  b[kichik]) or (namuna  b[katta]) then y : 'Xa';

if CheckBox1.Checked then

Label3.caption : y  #13  y1 else Label3.caption : y ;

end;

 klavishani StringGrid yacheykasida bosilganda

procedure TForm1.StringGrid1KeyPress(Sender:TObject;var Key: Char);

begin

if Key  #13 then  tugmasi bosilsa

if StringGrid1.Col < StringGrid1.ColCount - 1

then  kursorni massivning keyingi yacheykasiga o`tkazish

StringGrid1.Col : StringGrid1.Col  1

else  kursor Editl, namuna maydonlarida

Edit1.SetFocus;

end;

 klavish Editl maydonida bosilsa

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if Key  #13  tugmasi bosildi

then  buyruqli tugmani aktivlashtirish

Button1.SetFocus;

end; end.

7.13-rasmda ikkiga bo`lish usuli bilan qidirish dasturi uchun hosil bo`lgan dialog oynasining qaydnomali ko`rinishi keltirilgan.

7.13-rasm. Dialog oynasining qaydnomali ko`rinishi