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;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

Function myRound(Zahl:real; Gen:integer):String;
var
  i,c:integer;
begin
  i:=ansipos(',',pchar(floattostr(zahl)));
  c:=gen-i+1;
  if(c<0)then c:=0;
  result:=floattostr(round(zahl*power(10,c))/power(10,c));
end;                    

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

Function myRound(Zahl:single; Gen:integer):String;
var
  i,c,m:integer;
begin
  if(zahl<0)then m:=-1 else m:=1;
  zahl:=zahl*m;
  i:=ansipos(',',pchar(floattostr(zahl)));
  c:=gen-i+1;
  if(c<0)then c:=0;
  result:=floattostr(round(zahl*power(10,c))/power(10,c)*m);
end;                    

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:

function GerundeteZahl(Zahl : Extended; Rundung : Integer) : String;
var
  i : Integer;
begin
  if trunc(abs(zahl)) = 0 then
    dec(rundung);
  if trunc(abs(zahl)) >= power(10, rundung) then
  begin
    result := FloatToStr(trunc(zahl));
  end
  else
  begin
    i := 0;
    while trunc(abs(zahl)) > 0 do
    begin
      inc (i);
      zahl := zahl / 10;
    end;

    zahl := zahl * power(10, rundung);
    zahl := round(zahl);
    zahl := zahl / power(10, rundung-i);
    result := FloatToStr(zahl);
  end;
end;                    

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

function FloatToStrDigits(e: extended;aDigits: byte): String;
begin
  if Round(Log10(ABS(e)))+1 > aDigits then
    Result := IntToStr(round(e))//trunc, dann 12345,6 = 12345
    else
      begin
      Result := Format('%.*f',[aDigits-1,e]);
      Result := Format('%.*g',[aDigits,StrToFloat(Result)]);
      end;
end;{function FloatToStrDigits(...)}