Листинг подпрограмм var

Описание плана разработки программы

Фрагмент программы

procedure TForm1.Button2Click(Sender: TObject); begin

s:=Edit1.Text;

k:=StrToInt(Edit2.Text);

t:=StrToInt(Edit3.text);

Delete(s,k,t);

Edit10.Text:=s;

end;

procedure TForm1.Button3Click(Sender: TObject); begin

s:=Edit1.Text;

q:=StrToInt(Edit4.Text);

w:=Edit5.Text;

Insert(w,s,q);

edit11.Text:=s;

end;

procedure TForm1.Button4Click(Sender: TObject); begin

s:=Edit1.Text;

p:=StrToInt(Edit6.Text);

l:=StrToInt(Edit7.Text);

Copy(s,p,l);

s1:=copy(s,p,l);

Edit12.Text:=s1;

end;

procedure TForm1.Button5Click(Sender: TObject); begin

s:=Edit1.Text;

r:=Edit9.Text;

a:=Pos(r,s);

edit13.Text:=IntToStr(a);

end;

procedure TForm1.Button6Click(Sender: TObject); begin

s:=edit1.Text;

b:=Length(s);

edit14.Text:=IntToStr(b); end;

Практическая работа № 9 «Текущее время и текущая дата»

Цель работы -создать программу,которая выводит текущее время и текущую дату.

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: Button, Edit, Label.

3. Выполнить следующие действия:

			Таблица 24.
Выделенный объект	Вкладка окна	Имя свойства/	Действие
Object Inspector	имя события
Form1	Properties	Caption	Установка имени формы «Таймер»
Button1	Properties	Caption	Введите название «Текущее время»
	Events	Onclick	DateTime:=Time;
			Edit1.Text:=TimeToStr(DateTime);
Button2	Properties	Caption	Введите название «Текущая дата»
	Events	Onclick	Edit2.Text:=DateToStr(Date);
Edit1	Properties	Caption	Очистить значение свойства Text
Edit2	Properties	Caption	Очистить значение свойства Text

Рис. 47.

DateTime: TdateTime;

procedure Tform1.Button1Click(Sender: Tobject); begin

DateTime:=Time;

Edit1.Text:=TimeToStr(DateTime); end;

procedure Tform1.Button2Click(Sender: Tobject); begin

Edit2.Text:=DateToStr(Date); end;

end.

Практическая работа № 25 «Электронные часы»

Цель работы -написать программу«Электронные часы»,в окне которойотображается текущее время, дата и день недели.

Рис. 48.

Дата добавления: 2017-02-01