Dividere hvor resultatet er med 2 decimaler

Brug FormatFloat ...

Jens B

Det er ikke så meget det med at få de to decimaler - det er mere det, at size2 := (size / 1024); ikke virker.
For at få det til at virke, bliver jeg nød til at gøre følgende:
size2 := (size div 1024);
og det gør at jeg ikke kan lave resultatet med to decimaler.

Nej det er fordi Size er en Integer den skal du erklære som en Extended


Jens B

Brug denne funktion:

uses
  Math;

function Prefix(const Size: Int64; Decimals: Byte = 2): String;
var                 
  Counter: Byte;
begin
  Counter := 0;
  while Size/Power(1024, Counter) > 1000.0 do
    Inc(Counter);

  case Counter of
    0: Result := 'byte';
    1: Result := 'KB';
    2: Result := 'MB';
    3: Result := 'GB';
    4: Result := 'TB';
    5: Result := 'PB';
    6: Result := 'EB';
    else Result := 'Error';
  end;

  Result := Format('%.'+IntToStr(Decimals)+'n %s', [Size/Power(1024, Counter), Result]);
end;

//Det er ikke så meget det med at få de to decimaler - det er mere det, at
//size2 := (size / 1024); ikke virker.
//For at få det til at virke, bliver jeg nød til at gøre følgende:
//size2 := (size div 1024);
//og det gør at jeg ikke kan lave resultatet med to decimaler.
En integer kan kun indeholde hele tal såsom 1,100,333,65535 eller lign. i det du vil dividere vil det jo ofte give et "skævt" tal. En variabel af typen real, float, extended eller lign. kan indeholde kommatal. Når du så vil have det udskrævet i din statusbar findes der nogle funktioner til at lave det til string men x antal decimaler. deriblandt FloatToStr og Format.
/Klaus
btw. når du bruger "div" til at dividere med gør den det at den afrunder taldet til 0 decimaler så det kan være i en integer.

>>loke-liscom
Den afrunder ikke til 0, den dividere o fjerner alt efter kommaet...

Det vil sige:

6 div 3 = 2
7 div 3 = 2
8 div 3 = 2
9 div 3 = 3

osv...

okay okay... nu sad jeg ikke foran delphi da jeg skrev det så jeg testede ikke lige om div afrundede eller fjernede.. sorry....

>>loke-liscom
Det behøver man ikke at ha' Delphi kørende for... Man ved bare hvordan den virker! ;)

Okay hermandsen så kalder vi det en fortalelse......