Mavzu: Ma’lumotlarning nochiziqiy tuzilmasi kirish 2 I. Ma’lumotlar tuzilmalari va algoritmlari

2.2.5 chizma-ro’yxatni tozalash.

Tozalash tugmasi bosilganda oynadagi barcha tugunlar o`chiriladi.

2.2.2 Dasturning sinflari metodlari.

Quyida keltirilgan sinfning vazifasi ro’yxatning tugunlarini chizishdan iborat.

TMyImage = class(TImage)

private fnumber: integer; fvalue: integer; public property number : integer read fnumber write fnumber; property value : integer read fvalue write fvalue; function valueChange(vl,ind:Integer):boolean; function select:boolean; end;

TMyImage = class(TImage)—bu kod delphining Timage sinfining obyektini yaratish.

fnumber: integer, fvalue: integer---obyektning yopiq maydonlari Quyida bitta tugunni yaratish funksiyasi: function TMyImage.valueChange(vl,ind:integer):boolean; function imaChange:boolean; begin Width:=108;

Height:=50;

Canvas.Brush.Color:=clWindow;

Canvas.Rectangle(40,1,108,40);

Canvas.Font.Size:=20;

Canvas.TextOut(45,4,inttostr(vl)); if ind>1 then begin if ((ind-1) mod 5=0) then begin

Canvas.MoveTo(20,0); Canvas.LineTo(20,20); end else begin Canvas.MoveTo(0,20); end;

Canvas.LineTo(33,20);

Canvas.MoveTo(40,20);

Canvas.LineTo(30,13);

Canvas.LineTo(30,27); Canvas.LineTo(40,20); end; result:=true; end; begin result:=false; value:=vl; number:=ind; result:=imaChange; end;

Ozgartirish tugmasining kod qismi:

Tugma bosilganda for takrorlash operatori ScrollBox1 kompanentasining ichidagi kompanentlardan indeksi SpinEdit1ning qiymatiga teng bolsa, qo’yilgan shartning

Then qismi bajariladi. for i := 1 to ScrollBox1.ComponentCount-1 do begin if (ScrollBox1.Components[i] as TMyImage).value=SpinEdit1.Value then begin

(ScrollBox1.Components[i] as TMyImage).select; MyImageClick(ScrollBox1.Components[i]); x:=true; break; end;

end; if not x then

ShowMessage('Xatolik: Bunday qiymatli element mavjud emas!'); end;

Tozalash tugmasining kod qismi:

lastImage.Free; lastImage:=nil; while ScrollBox1.ComponentCount>0 do begin

(ScrollBox1.Components[0] as TMyImage).free; end; k:=0;

Button2.Enabled:=true; //tugma bosilganda ro’yxat tozalanguncha tugmaning holati o’zgarib turadi.

end;

Xulosa. II.bob Dastur spetsifikatsiyasi va dasturga qo’yiladigan funksional va nofunksional talablar haqida. II.bob 2 ta qismdan iborat. 2.1. Delphi dasturlash tili imkoniyatlari haqida ma’lumotlar keltirilgan. 2.2.Dasturni loyihalash haqida.

Bunda yaratilgan dastutnig foydalanuvchi grafik interfeysi, dastur qanday dasturlash ilovasida tayyorlanganlgi haqida ma’lumotlar berilgan.