ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.Button1Click(Sender: TObject);
begin
e:=StrToInt(Edit1.Text);
p:=StrToInt(Edit2.Text);
sum:=e+p;
Edit3.Text:=IntToStr(sum);
end;

procedure TForm1.Button1Click(Sender: TObject);
 begin
  e:=StrToReal(Edit1.Text, 3);
  p:=StrToReal(Edit2.Text, 3);
  sum:=e+p;
  Edit3.Text:=RealToStr(sum, 3);
 end;

Delphi syntax:

procedure Str(X [: Width [: Decimals ]]; var S);

Description

In Delphi code, Str converts X to a string representation 
according to the Width and Decimals formatting 
parameters. The effect is like a call to Write except the 
resulting string is stored in S instead of being written to 
a text file.

X is an integer-type or real-type expression. Width and 
Decimals are integer-type expressions. S is a string-type 
variable or a zero-based character array variable if 
extended syntax is enabled.

procedure TForm1.Button1Click(Sender: TObject);
 begin
  e:=StrToFloat(Edit1.Text);
  p:=StrToFloat(Edit2.Text);
  sum:=e+p;
  Str(sum:3, x);// отображает три символа после плавающей запятой
  Edit3.Text := x;
 end;