Interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

CheckBox1: TCheckBox;

ComboBox1: TComboBox;

BitBtn1: TBitBtn;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure ComboBox1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var num:Integer;

Form1 : TForm1;

Implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

ComboBox1.Items.Add(ComboBox1.Text);

if ComboBox1.ItemIndex=-1 then

ComboBox1.Text:= ' ';

ComboBox1.Items.savetOFIle ('glostext.txt');

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

IF messageDlg('Сіз шынымен жазуды өшіргіңіз келе ме?',mtWarnIng, [mbyes, mbnO], 0) = mryes tHen

СomboBox1.Items.savetOFIle ('glostext.txt');

ComboBox1.Items.Delete (ComboBox1.ItemIndex);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

ComboBox1.Items.SaveToFile('glostext.txt');

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

combobox1.Items.loadFromFIle ('glostext.txt');

end;

procedure TForm1.ComboBox1Click(Sender: TObject);

begin

num:= ComboBox1.ItemIndex;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

ComboBox1.Items.Delete (num);

ComboBox1.Items.saveToFIle ('glostext.txt');

ComboBox1.Items.aDD (ComboBox1.text);

IF ComboBox1.ItemInDeX=-1 then ComboBox1.text:=' ' ;

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.Checked= False then

ComboBox1.Style:= csDropDown else

ComboBox1.Style:= csDropDownList;

end;

end.

Қорытынды:Оздерин жазындар

№5 зертханалық жұмыс “Сіздің салмағыңыз” атты жобасын құру Жұмыстың мақсаты:

Ауыспалылардың сандық және заттық түрін қолдануды, жолдық мәліметтерді сандыққа, сандық мәліметтерді жолдыққа өзгертуді, ерекше жағдайларды Try-except-end, операторы көмегімен өңдеуді, жеке терезеде «Хабаралама» шығару үшін ShowMessage процедурасын қолдануды үйрену.

Бағдарламаның дайын түрі

Листинг бағдарламасы:

unit Unit1;

Interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button1: TButton;

BitBtn1: TBitBtn;

procedure Button1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

VAR

x,y,k : real;

begin

x:=StrToFloat(Edit1.Text);

y:=StrToFloat(Edit2.Text);

y:= Sqr(y/100);

k:=x/y;

if k<18 then Label3.caption := 'Сізге толық-тау керек, мына’ + IntToStr (k) + ‘кг’

else

if (k>=20)and(k<=25)then Label3.caption := 'Жарайсыз, сіз-дің салмағыңыз керемет'

else

if k>30 then Label3.caption := 'Сізге арықтау керек, мына’ + IntToStr(k) + ‘кг’';

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

Close;

end;

end.

№6 зертханалық жұмыс “RGB форматындағы түстер” атты жобасын өңдеу Жұмыстың мақсаты:

ScrollBar айналдыру сызығын қолдануды үйрену және мәліметтерді еңгізу, TCOLOR REF функциясының түстерді құрастыруды түрлендіру мәнін үйрену. Қолданушы көре алатындай қаныққан қызыл, жасыл және көк түсті бағдарламаны құру.

Бағдарламаның дайын түрі

Листинг бағдарламасы:

unit Unit1;