Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
«Строковый калькулятор»
Цель работы -создать программу, выполняющую действия строкового калькулятора.
Описание плана разработки программы
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;
Дата публикования: 2014-11-02; Прочитано: 367 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!