Форма

[Владан]

Задача:
Найти найбольшее значение y1 или y2.Ну и там заданы формулы
Как сделать так чтобы было после знака запятой выбивало допустим одну или две цыфры(до тысячных)

Код:

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Button2: TButton;
    Button3: TButton;
    Edit3: TEdit;
    Button4: TButton;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var
  y1,y2,x:real;

procedure TForm1.Button1Click(Sender: TObject);
begin
  x:=StrtoFloat(Edit1.Text);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  y1:=(1+4*x+4*sqr(x))*(x/3-x/5);
  Edit2.Text:=Floattostr(y1);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  y2:=(2*x*x*x)/(1-sqr(x));
  Edit3.Text:=Floattostr(y2);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
  if y1>y2 then
  Edit4.Text:=floattostr(y1)
  else Edit4.Text:=floattostr(y2);
end;
end.

[maLoy*508]

используй вместо FloatToStr функцию FloatToStrF, описание в хелпе

[Владан]

Сообщение от maLoy*508

используй вместо FloatToStr функцию FloatToStrF, описание в хелпе

понял , спасибо)