Практикум по Delphi для решения прикладных задач


         

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


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




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

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;




Содержание раздела