Gleitkommazahl abschneiden

[Meflin]

Hi,
ich habe eine gleitkommazahl (die einen prozentwert darstellt). von dem möchte ich aber nur die ersten 4 nachkommastellen anzeigen! auf 4 stellen runden ist recht arbeitsintensiv (zumindest wenn das tool selber ne menge resourcen braucht, und das tut es). also will ich einfach nur alles hinter der 4. Nachkommastelle abschneiden.
Nun meine frage: wie macht man das?

*MFG*

[Ultimator]

Ich würde die Zahl in einen String umwandeln, mit pos() nach dem Komma suchen und alles, was nach einer bestimmteen ANzahl Ziffern kommt, löschen.
Danach natürlich das ganze wieder in einen Fließkommawert umwandeln.

[Nicodius]

Delphi-Quellcode:

var M : Real;
begin
  M := 12.343234234;
  Form1.Caption := FloatToStrF(M,ffNumber,4,4);

sollten vorne aber nicht zuviele stellen sein

[Nothine]

Delphi-Quellcode:

function Abschneiden(X: Extended): Extended;
begin
  Result := Int(X*10000)/10000;
end;

[Meflin]

Zitat von Nicodius:

Delphi-Quellcode:

var M : Real;
begin
  M := 12.343234234;
  Form1.Caption := FloatToStrF(M,ffNumber,4,4);

sollten vorne aber nicht zuviele stellen sein

nett... und was sind die letzten zwei parameter?

[Nicodius]

aus der OH --> FloatToStrF

Zitat:

Beschreibung

FloatToStrF konvertiert die mit Value angegebene Gleitkommazahl in die entsprechende String-Darstellung.

Value ist der zu konvertierende Wert.
Precision legt die Genauigkeit des angegebenen Wertes fest. Sie sollte bei Werten des Typs Single bis zu 7, bei Werten des Typs Double bis zu 15 und bei Werten des Typs Extended bis zu 18 Stellen betragen.
Die Parameter Digits und Format steuern zusammen, wie die Formatierung in einen String erfolgt. Genaue Informationen hierzu finden Sie bei der Beschreibung von TFloatFormat.

[Meflin]

perfect, thx
und es sind vorne auch nicht zu viele stellen ein prozentwert hat "vorne" höchstens 3... zumindest meistens

[Nicodius]

dann passts