Problem mit floattostrf

[derbenna]

Hallo
ich habe folgendes Problem:

Code:

edit1.text := floattostrf (a * b, ffnumber, 7, 3);

wenn z.B. a 2 ist und b 3 ist dann steht in edti1 nicht 6 sondern 6,000.

Wie kann ich Delphi die Anweisung geben die Nullen nicht zu schreiben?

[Dax]

Du könntest statt ffNumber ffGeneral benutzen, oder 0 als Parameter für Digits einsetzen.

[derbenna]

Wenn aber keine grade Zahl rauskommt sollen sie auf drei Stellen nach dem Komma angezeigt werden.

[Dax]

Hab' mich verschrieben.. was du suchst ist ja ffGeneral, nicht ffFixed..

[derbenna]

Ich meinte natürlich wenn keine ganze Zahl rauskommt.

[Nothine]

du könntest FormatFloat benutzen, und eine abfrage erstellen, ob es eine ganze zahl ist, z.B. so:

Delphi-Quellcode:

var A,B: Extended;
const Frmt: array[Boolean] of string[5] = ('#','#.000');

//  A := 3;
//  B := 5.3;
  Edit1.Text := FormatFloat( Frmt[Frac(A*B) <> 0] , A*B );

{bzw.}

if Frac(A*B) <> 0 then
  Edit1.Text := FormatFloat('#.000',A*B) //alle vorkomma-stellen, 3 nachkomma-stellen
else Edit1.Text := FormatFloat('#',A*B); //nur vorkomma-stellen