fjern decimaler efter komma

Edit4.Text := inttostr(strtoint(Edit3.Text) div 987654321);

svar

Edit4.Text := (floattostr(round(strtofloat(Edit3.Text)/987654321) ));

Brug Round():

Edit4.Text := (inttostr(Round(strtofloat(Edit3.Text)/987654321 )));

Round(); //Runder op eller ned
Trunc(); //Fjerner decimaler helt, uden at runde op

Evt.

Edit4.Text := (inttostr(round(strtofloat(Edit3.Text)/987654321) ));

3 før mig... jeg er vist for langsom ;-)
http://www.pythia.dk/tips/vis_tip.php?id=64

mysitesolution.. det er tit for store tal til at bruge integer... Men arne_v's svar virker...
Jeg takker for hjælpen...

jep jep... var heller ikke sikkert på det virkede...

Vi kan også selv lege lidt...

function Hest(X: Extended): Int64;
begin
  Result := Trunc(X);
  X := X - Trunc(X);
  if X >= 0.5 then
    Inc(Result);
end;

Edit4.Text := floattostr(Hest(strtofloat(Edit3.Text)/987654321));

Men selv den funktion er ikke helt præcis, 123,499999999999999994 vil give 124.

Jeg vil gerne give athlon-pascal point for sit lille arbejde...

Jeg lægger et spørgsmål til dig ;o)

Nej, det behøver du ikke...

Den funktion er helt præcis.

123,499999999999999994 og 123,5 er nemlig samme tal !

I extended data type altså !

Se f.eks. følgende lille program:

program BigFloat;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes;

var
    x1,x2 : extended;
    s : array [1..sizeof(extended)*2] of char;
    i : integer;

begin
  x1 := 123.5;
  bintohex(@x1,@s,sizeof(x1));
  for i := 1 to 20 do write(s[i]);
  writeln;
  x2 := 123.499999999999999994;
  bintohex(@x2,@s,sizeof(x2));
  for i := 1 to 20 do write(s[i]);
  writeln;
end.

(beklager at det er console, men sådan programmerer jeg altså i Pascal)