Подкорректировать програму (Delphi)

[spinogryz_ua]

Как сделать что бы цыфер после точки было поменьше, 4 к примеру?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart,math, Series;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Chart1: TChart;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Series1: TLineSeries;
    Memo1: TMemo;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
   
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x,s,c,f:real;
    k:integer;
begin
x:=strtofloat(edit1.text);
s:=0; c:=0;f:=2;
for k:=1 to 8  do
 begin
  s:=x*f;
  s:=power(-1,k)*power(x,2*k)/f;
  f:=f*k;
  c:=s+c;
  Memo1.Lines.Add('  '+inttostr(k)+'      '+floattostr(c));
  Series1.AddXY(c,k,'',clRed);
  end;

end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Clear;
memo1.Clear;
end;

end.

[SeRhy]

var znachenie:real;
    value:string;
begin
  znachenie:=4554.5443455344;
  value:=copy(floattostr(znachenie),1,pos(',',floattostr(znachenie))+4);
end;

Переменная "znachenie" - значение, которое у вас есть
Переменная "value" - строка со значением которую вы получите (в данном случае: '4554.5443')

[d3qoot]

s:=floattostr(v,fffixed,3,4);

s - строка в которую запишется "урезанное" число
v - значение, которое нужно "урезать"
3 - символы до точки
4 - символы после точки

[hon]

Memo1.Lines.Add('  '+inttostr(k)+'      '+floattostr(c:6:4));

Можно написать другие цифры. Давно не работал с этим. Не помню точно.

[Delphi_ProGer]

RoundTo
SimpleRoundTo

[Serge_Bliznykov]

Сообщение от hon

Memo1.Lines.Add('  '+inttostr(k)+'      '+floattostr(c:6:4));

Можно написать другие цифры. Давно не работал с этим. Не помню точно.

Это в корне неверно!
форматы вывода не допускаются в функции FloatToStr()


нужно использовать функцию формат, или, как почти правильно предложил d3qoot в пост #3

  Memo1.Lines.Add('  '+inttostr(k)+'      '+FloatToStrF(c, fffixed, 8, 4));

p.s. впрочем, варианты с округлением тоже подойдут!