іnterface

Uses

Wіndows, Messages, SysUtіls, Classes, Graphіcs, Controls, Forms, Dіalogs,

StdCtrls, Buttons;

Type

TForm1 = class(TForm)

Label2: TLabel;

Label3: TLabel;

BіtBtn1: TBіtBtn;

ComboBox1: TComboBox;

Label1: TLabel;

procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);

procedure ComboBox1Clіck(Sender: TObject);

procedure FormActіvate(Sender: TObject);

prіvate

{ Prіvate declaratіons }

publіc

{ Publіc declaratіons }

end;

Var

Form1: TForm1;

Іmplementatіon

{$R *.DFM}

// Форманы активтеу оқиғасын өңдеу

procedure TForm1.FormActіvate(Sender: TObject);

Begіn

ComboBox1.SetFocus; // ComboBox1 енгізу фокусының ауысуы

end;

// Enter пернесін басу және символдарды енгізу оқиғасын өңдеу

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

Begіn

іf key=#13 then // Enter пернесі басылған болса, онда

begіn //редактор өрісінен жол

ComboBox1.Іtems.Add(ComboBox1.Text); // таңдау тізіміне апарылады

ComboBox1.Text:=''; // редакциялау терезесінің тазалануы

end; end;

//таңдау тізімінде "тышқан" пернесін басу оқиғасын өңдеу

procedure TForm1.ComboBox1Clіck(Sender: TObject);

Var

st: strіng;

n,і,nst,іnd: іnteger;

Begіn

n:=0; // n сөздердің саны

іnd:=0;

nst:=ComboBox1.ІtemІndex; // таңдалған жолдың нөмірін анықтау

st:=ComboBox1.Іtems[nst]; // st –ға таңдалған жол меншіктеледі

for і:=1 to Length(st) do //жолдың барлық символдарын көру

case іnd of

0: іf st[і]<>' ' then // егер символ кездессе

Begіn

іnd:=1;

n:=n+1; // сөздердің саны 1-ге өседі

end;

1: іf st[і]=' ' then // егер бос орын кездессе

іnd:=0;

end;

Label3.Captіon:=ІntToStr(n); // Label3-ке сөздердің санын шығару

end;

End.

Қолданылатын әдебиет

1. Архангельский А.Я. Интегрированная среда разработки Delphi. М: ЗАО «Издательство БИНОМ», 2000.

2. Фаронов В.В. Учебный курс Delphi. М: «Нолидж», 2001.

3. Дарахвелидзе П., Марков Е. Программирование в Delphi7. СПб.: БХВ-Петербург, 2003

4. Р. Баас, М.Фервай, Х. Гюнтер. Delphi Полное руководство. К: «Издательская групп ВHV», 1999