Max. 3 Nachkommastellen

[Carsten1234]

Hallo zusammen,

bzgl. Runden mit 3, 4, 5 Nachkommastellen mit Hilfe von Format oder FormatFloatToStrF gibt es ja einiges zu lesen, doch zu meinem Problemchen im Betreff habe ich noch keine gute Lösung gefunden.
Ich möchte nämlich, dass ein Float max. 3 Nachkommastellen hat, optional aber auch weniger, wenn der Anwender weniger Nachkommastellen eingibt.
Bsp.:
1500 => 1500
100,01 => 100,01
0,3972 => 0,397
0,8767 => 0,877

Wie kann ich das denn möglichst einfach erreichen?

Dank vorab und Gruß, Carsten

[mkinzler]

So einfach geht das nicht

[BAMatze]

Also mir fällt da spontan folgendes Vorgehen ein:

1. Bediener gibt Nachkommastellen ein (z.B. n = 3)
2. du berechnest dann: 10^n (in diesem Fall 1000)
3. du multiplizierst es mit deiner eingegebenen Zahl für dein 3.Beispiel sähe das wie folgt aus: 0,3972 * 1000 = 397,2
4. du rundest(round) es => 397
5. du dividierst es wieder durch 1000 und gibst es mit format aus => 0,397

ist zwar erstmal etwas umständlich sollte aber machen, was du möchtest in relativ wenigen Schritten. Gibt aber sicherlich noch andere mögliche Wege.

MfG
BAMatze

[Dust Signs]

Formatier doch einfach die Zahl mit drei Nachkommastellen und entferne bei Bedarf die Nullen am Ende

Dust Signs

[Hawkeye219]

Hallo,

vielleicht geht es so:

Delphi-Quellcode:

var
  s : string;
  x : Double;
begin
  s := Format('%g', [{Math.}RoundTo(x, -3)]);
end;

Gruß Hawkeye

[himitsu]

Zitat von Dust Signs:

Formatier doch einfach die Zahl mit drei Nachkommastellen und entferne bei Bedarf die Nullen am Ende

Dust Signs

und nicht das Komma vergessen zu entfernen, falls danach alle Nullen weg sind

Delphi-Quellcode:

Function MyFormat(f: Extended; Precession: Integer): String;
  Begin
    Result := Format('%.*n', [Precession, f])
    While Result[Length(Result)] = '0' do Delete(Result, Length(Result), 1);
    If Result[Length(Result)] = DecimalSeparator Then Delete(Result, Length(Result), 1);
  End;

[edit]

Delphi-Quellcode:

Function MyFormat(f: Extended; Precession: Byte; Width: Byte = 0): String;
  Begin
    Result := Format('%*.*n', [Width, Precession, f]);
    If Precession > 0 Then Begin
      While Result[Length(Result)] = '0' do Delete(Result, Length(Result), 1);
      If Result[Length(Result)] = DecimalSeparator Then Delete(Result, Length(Result), 1);
    End;
  End;

[Klaus01]

@himitsu

.. wenn dann eine Ganzzahl übergeben wird und Presession > 0 ist,
dann wird aus einer 100 eine 1

Grüße
Klaus

[himitsu]

OK, hatte ich zwar noch nicht das Problem, aber dann einfach so ^^

Delphi-Quellcode:

Function MyFormat(f: Extended; Precession: Byte; Width: Byte = 0): String;
  Begin
    Result := Format('%*.*n', [Width, Precession, f]);
    If Pos(DecimalSeparator, Result) > 0 Then Begin
      While Result[Length(Result)] = '0' do Delete(Result, Length(Result), 1);
      If Result[Length(Result)] = DecimalSeparator Then Delete(Result, Length(Result), 1);
    End;
  End;

oder

Delphi-Quellcode:

Function MyFormat(f: Extended; Precession: Byte; Width: Byte = 0): String;
  Var i: Integer;

  Begin
    Result := Format('%*.*n', [Width, Precession, f]);
    If Pos(DecimalSeparator, Result) > 0 Then Begin
      i := Length(Result);
      While Result[i] = '0' do Dec Dec(i);
      If Result[i] = DecimalSeparator Then Dec(i);
      Result := Copy(Result, 1, i);
    End;
  End;

[BAMatze]

Hab mir auch mal eine Lösung überlegt, könnt ja mal raufschauen:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

procedure Ausgabevorbereitung(var n: integer;dfWert: double);
function Potenz(n: integer): integer;

var
  Form1: TForm1;
  dWert: double;
  iKommastellen: integer;

implementation

{$R *.dfm}

function Potenz(n: integer): integer;
begin
  if n = 1 then result := 10
  else
    begin
      n := n-1;
      result := 10 * Potenz(n);
    end;
end;

procedure Ausgabevorbereitung(var n: integer; dfWert: double);
var dTemp: double;
begin
  dTemp := round(dfWert);
  if (dTemp = (dfWert * 10)) or (n = iKommastellen) then
    begin
      Form1.Label1.Caption := floattostr(dTemp/Potenz(n));
    end
  else
    begin
      n := n+1;
      Ausgabevorbereitung(n,dfWert * 10);
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var Index: integer;
begin
  dWert := 1.2345678;
  iKommastellen := 3;
  Index := 0;
  Ausgabevorbereitung(Index,dWert);

end;

end.

MfG
BAMatze

[Carsten1234]

Zitat von Dust Signs:

Formatier doch einfach die Zahl mit drei Nachkommastellen und entferne bei Bedarf die Nullen am Ende

Stimmt!
Erstmal mit
Result:= Format('%0.3f', [AValue]); auf 3 Nachkommastellen aufbohren, dann

Delphi-Quellcode:

while (Length(Result) > 1) and
      (Copy(Result, Length(Result), 1) = '0') do
    Delete(Result, Length(Result), 1);

alle hinteren Nullen entfernen und ggf. noch

Delphi-Quellcode:

if (Copy(Result, Length(Result), 1) = DecimalSeparator) then
    Delete(Result, Length(Result), 1);

den DecimalSeparator entfernen.
So bleibt dann bei 0,000 auch nur die 0 vor dem Komma stehen.

Danke!