Runden ohne nachfolgende Nullen

[hanvas]

Zitat von Rollo62:

Hallo zusammen,

Wie würdet Ihr das machen ?

Rollo

Code:

function makeStr(d : Double) : String;
var l,c : Integer;
begin
 result := IntToStr(Trunc(d * 1000));
 l      := Length(result); 
 c      := 0;
 while (result[l-c] = '0') and 
       (c<3) do
             c := c + 1;
 if (c>0) then // bis ende löschen
     Delete(result,l-c,l);
 if (c<3) then 
     insert(',',result,l-c); 
end;

ungetestet

cu Ha-Jö

[EWeiss]

Ein inc(c) tut's auch.

gruss

[hanvas]

Zitat von EWeiss:

Ein inc(c) tut's auch.

gruss

Aus welchen Grund sollte ich inc verwenden? Das inc und dec scheller ist als +1/-1 halte ich für einen Mythos.

cu Ha-Jö

[EWeiss]

Zitat von hanvas:

Zitat von EWeiss:

Ein inc(c) tut's auch.

gruss

Aus welchen Grund sollte ich inc verwenden? Das inc und dec scheller ist als +1/-1 halte ich für einen Mythos.

cu Ha-Jö

Hat niemand verlangt nur das es auch tut
Allerdings ist das Konzept schon seit 1969 bekannt und scheint in 2017 noch nicht angekommen zu sein.

https://en.wikipedia.org/wiki/Increm...ment_operators

gruss

[juergen]

Hallo,

meine Delphi-Version kann das (leider) noch nicht, du könntest aber die TStringHelper nutzen.
Ich würde das dann so machen:

s := s.TrimRight([#048, #044]);
Edit: 800.

[t.roller]

Zitat von juergen:

Hallo, meine Delphi-Version kann das (leider) noch nicht, du könntest aber die TStringHelper nutzen.
Ich würde das dann so machen:

s := s.TrimRight([#048, #044]);

Man sollte aber den Punkt (#46) am Ende auch entfernen:
s := s.TrimRight([#048, #044, #46]);

[Uwe Raabe]

Zitat von hanvas:

Aus welchen Grund sollte ich inc verwenden? Das inc und dec scheller ist als +1/-1 halte ich für einen Mythos.

Der Compiler erzeugt eh für beides denselben Code.

[Ghostwalker]

Warum was selber schreiben, wenn es das doch schon gibt.

FloatToStr tut genau das was du möchtest.

BSP.:

Delphi-Quellcode:

const
   cFloats : array[0..6] of double = (
1.234,2.404,2.001,1.000,1.100,1.403,2.330);
{$R *.dfm}

procedure TForm71.TntButton1Click(Sender: TObject);
var
  i : integer;

begin
  log.Lines.Clear;
  for I := 0 to 6 do
  begin
    log.Lines.Append(format('%1.3f',[cFloats[i]])+' = '+floatToStr(cFloats[i]));
  end;
end;

Ergebnis:

Code:

1,234 = 1,234
2,404 = 2,404
2,001 = 2,001
1,000 = 1
1,100 = 1,1
1,403 = 1,403
2,330 = 2,33

[t.roller]

Zitat von Ghostwalker:

Bill Gates, 1981: "640K sollte genug für jedermann sein".

640k: Ja, als Monatseinkommen, egal ob Dollar oder Euro.

[Ghostwalker]

Da stimm ich dir zu. Leider bezog er sich damals auf den Hauptspeicher eines Rechners.