Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.05.2010, 19:26   #1
KnighTeX
Пользователь
 
Регистрация: 03.10.2009
Сообщений: 20
Восклицание (3) Создание программ!!!

4. ОБРАБОТКА СОБЫТИЙ В DELPHI.КОМПОНЕНТЫ TLISTBOX И TCOMBOBOX
г.png
Unit Unit1;
Interface
Uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons;
type
Tunit_Lab5 = class (TForm)
ComboBox1: TComboBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
Button1: TButton;

Procedure FormActivate (Sender: TObject);
Procedure ComboBox1KeyPress (Sender: TObject; var Key: Char);
Procedure ComboBox1Click (Sender: TObject);
Private
(Private declarations)
Public
(Public declarations)
end;

var
Unit_Lab5: TUnit_Lab5;

Implementation
($ R *. DFM)

/ / Обработка события активизации формы
Procedure TUnit_Lab5.FormActivate (Sender: TObject);
begin
ComboBox1.SetFocus; / / Передача фокуса ComboBox1
end;

/ / Обработка события нажатия левой клавиши мыши
Procedure TUnit_Lab5.ComboBox1KeyPress (Sender: TObject; var Key: Char);
begin
if Key = # 13 then / / Если нажата клавишу Enter то ...
begin
/ / Строка из окна редактирования заносится в список выбора
ComboBox1.Items.Add (ComboBox1.Text.
ComboBox1.Text: =''; / / Очистка окна редактирования
end;
end;

Procedure TUnit_Lab5.ComboBox1Click (Sender: TObject);
var
St: string;
n, и, nst, ind: integer;
begin
n: = 0; / / Содержит число слов избранного строки
/ / Содержит количество слов
ind: = 0;
/ / Определение номера выбранного строки
nSt: = ComboBox1.ItemIndex;
/ / Сохранение выбранного строки в переменную st
St: = ComboBox1.Items [nst];
/ / Пересмотр всех символов строки st
for i: = 1 to Length (St) do
begin
Case ind of
0: if St [и] <>''then
begin
/ / Если встретился символ после пробела
/ / Килькистьслив увеличивается на единицу
ind: = 1;
n: = n 1;
end;
/ / Если встретился пробел после символов
1: if St [i] =''then ind: = 0;
end;
end;

Label3.Caption: = IntToStr (n); / / Вывод количества слов в Label3
end;
end.
ЗАДАНИЕ:
Дана строка, состоящая из групп нулей и единиц. Подсчитать количество символов в самой длинной группе.
5. Программирование подпрограмм и модулей.
ш.png
Текст модуля:
Unit Matfu;
Interface
Function Tg (x: extended): extended;
/ / Функция для вычисления тангенса
Function Ch (x: extended): extended;
/ / Функция для вычисления гиперболического синуса
Function Sin2 (x: extended): extended;
/ / Функция для вычисления квадрата синуса

Implementation
Function Tg;
begin
Result: = sin (x) / cos (x);
end;
Function Ch.
begin
Result: = (exp (x)-exp (-x)) / 2;
end;

Function Sin2;
begin
Result: = sqr (sin (x));
end;
end.

Текст дерзкой программы:

Unit Unit1;
Interface
Uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, MatFunc;

type
TForm1 = class (TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
RadioGroup1: TRadioGroup;

Procedure FormCreate (Sender: TObject);
Procedure Button1Click (Sender: TObject);
Procedure Button2Click (Sender: TObject);
private
(Private declarations)
public
(Public declarations)
end;

type
func = function (x: extended): extended;
var
Form1: TForm1;

implementation
($ R *. DFM)

procedure TForm1.FormCreate (Sender: TObject);
begin
Edit1.Text: = '0 ';
Edit2.Text: = '2 ';
Edit3.Text: = '0 .2 ';
Memo1.Clear;
RadioGroup1.ItemIndex: = 0;
end;

procedure Tabl (f: func; xn, xk, h: extended);
var
x, y: extended;
begin
x: = xn;
Repeat
y: = f (x);
Form1.Memo1.Lines.Add ('x =' FloatToStrF (x, fffixed, 8,2)
'Y =' FloatToStrF (y, fffixed, 8,2));
x: = x h;
Until (x> xk.
end;

procedure TForm1.Button1Click (Sender: TObject);
var
xn, xk, h: extended;
begin
xn: = StrToFloat (Edit1.Text.
xk: = StrToFloat (Edit2.Text.
h: = StrToFloat (Edit3.Text.

Case RadioGroup1.ItemIndex of
0: Tabl (tg, xn, xk, h);
1: Tabl (ch, xn, xk, h);
end;
end;

procedure TForm1.Button2Click (Sender: TObject);
begin
Halt
end;
end.
Задание
щ.png
KnighTeX вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создание программ!!! KnighTeX Фриланс 6 23.06.2010 12:00
(2) Создание программ!!! KnighTeX Компоненты Delphi 0 22.05.2010 19:21
Создание программ ]Wowan[ Фриланс 4 22.05.2009 14:13
Создание *.bat программ Top4 Помощь студентам 6 29.07.2008 10:09
Создание красивых программ ORBIUS Общие вопросы Delphi 6 17.07.2008 09:55