Практическая работа № 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;
|
