1:

Format('%.4g',[StrToFloat(Format('%.3f',[e]))]);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

type float = single;

function MyFloatToStr(const aFloat : float; aDigits : byte = 7): string;
{
 Converts the single precision variable aFloat to a string with
 aDigits-significant numbers

 Example : PointFloatToStr(1000.4,4) = '1000'
           PointFloatToStr(0.0001,4) = '0'
           PointFloatToStr(-123.46,4) = '-123.5'

}
 var dspos,left,right : integer;
     precision : integer;
begin
 precision := Max(Trunc(Ceil(ln((Abs(aFloat)+1))/ln(10))),aDigits);

 Result := FloatToStrF(aFloat,ffFixed,precision,10);
 dspos := Pos(DecimalSeparator,Result); //position of decimal separator
 if dspos>0 then
 begin
  left := Pos('-',Result)+1;

  if dspos-left<aDigits then
   right := left+aDigits
  else
   right := dspos;

  while Result[right]='0' do Dec(right); //remove trailing zeroes
  if Result[right]=DecimalSeparator then Dec(right); //remove unnecessary separator

  Result := Copy(Result,1,right);
 end;
end;					

1:
2:
3:
4:

ZahlHinterE := StrToInt(copy(result,pos('E', result), length(result)));
Result:=StringReplace(result, 'E'+IntToStr(ZahlHinterE), '', []);
for i:=1 to zahlHinterE do
   result:=result+0;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button3Click(Sender: TObject);
var aDigits : byte;
    e : extended;
begin
  aDigits := StrToInt(Edit2.Text);
  e := StrTofloat(Edit1.Text);
  if Round(Log10(ABS(e)))+1 > aDigits then
    Label1.Caption := IntToStr(round(e))//round oder trunc  ????
    else
      Label1.Caption := Format('%.'+IntToStr(aDigits)+'g',
                               [StrToFloat(Format('%.'+IntToStr(aDigits-1)+'f',[e]))]
                               );					

1:
2:
3:

Zahl:=123456.78634;
Fa:=100; //das wären 2 Stellen hinterm Komma
result:=round(Zahl*Fa)/Fa;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function myRound(Zahl:String; Stellen:integer=2):string;
var
  fa,x:integer;
  gZahl:real;
begin
  fa:=1;
  for x := 0 to fa do fa:=fa*10;
  
  try
    gZahl:=strtofloat(Zahl);
    result:=floattostr(round(gZahl*fa)/fa);
  except
    result:='0';
  end;
end;					

1:
2:
3:
4:
5:
6:

function RoundEx(const X: Extended; const Offset: integer): Extended;
begin
  if frac(X * Power(10, OffSet)) >= 0.5 then
       result := ceil(X * Power(10, OffSet)) / Power(10, OffSet)
  else result := floor(X * Power(10, OffSet)) / Power(10, OffSet);
end;					

1:

  Label1.Caption := FloatToStr(RoundEx(StrToFloat(edit1.Text), 3));					

1:
2:
3:
4:
5:

function GerundeteZahl(Zahl : Extended; Rundung : Integer) : Extended;
begin
  while trunc(zahl) > power(10, rundung) do inc(rundung);
  result := RoundTo(zahl, Rundung);
end;