Лекция: Практическая работа № 21

«Строковый калькулятор»

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

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

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

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

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

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;