Discussion :

[gadalla]

je vient de determiné l'espace d'un disk dure
mais le nombre de chiffre est grand
jai essayé avec deux méthode mais ça n'a pas marché
svp aider moi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
label2.Caption := floattostr(diskfree((ord(i)-64))/1073741824:5:2 )+ 'Go

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
label2.Caption := floattostr(format'%.2f',[diskfree((ord(i)-64))/1073741824])+ 'Go

merci d'avance

[rvzip64]

RoundTo de l'unitée Math

[gadalla]

dsl mon ami çs n'a pas marché

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Unit
Math
//----------------------------------------------------------//
label2.Caption := floattostr(roundto(diskfree((ord(i)-64))/1073741824 ))+ 'Go

[aityahia]

la fonction FloatToStrF existe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

label2.Caption:=FloatToStrF((diskfree((ord(i)-64))/1073741824:5:2 ),ffFixed,8,2);

te donnera beaucoup plus de détails sur la fonction.

[Gilbert Geyer]

je viens de determiner l'espace d'un disk dur
mais le nombre de chiffres est grand

... pour afficher la taille de n'importe quoi en Go, Mo, Ko etc tu peux utiliser la fonction suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
function fGoMoKo(mem : int64) : string;
var      e : integer; s : string; r : real;
begin    e:=0; r:=mem;
         if r>=0 then
         begin while r>1024 do begin r:=r/1024; inc(e); end;
               case e of
                    0 : s:='oct';
                    1 : s:='Ko';
                    2 : s:='Mo';
                    3 : s:='Go';
                    4 : s:='To';
               end;
               fGoMoKo:=FormatFloat('#.###',r)+' '+s;
          end;
end; { fGoMoKo }
 
// Utilisation :
 
       showMessage(fGoMoKo(TailleEnOctets));

... c'est prévu même pour afficher des tailles en TéraOctets ! lol

[rvzip64]

ah oui autant pour moi :

Roundto(1.23456789,-2)=1.23

Le second paramètre définit le nombre de chiffre aprés la virgule

[CapJack]

Moi j'utilise Format : elle fait tout, et évite les concaténations.

[Art19]

Tu as trois fonctions: Trunc, RoundTo et Round:

Trunc fait la troncature
RoundTo arrondit à n chiffres après la virgule
Round arrondit à l'unité