G un petit probleme,
J aimerai arrondir un nbre a 0.1 pres.
 
En fait ds mon appliz,
j aimerai avoir la taille d'un fichier en Mo ou Go et comme j utilise la fonction FileSize ki donne la taille en Ko,
faudrai diviser la taille en ko par 1024 pour avoir en Mo
et par 1024*1024 pour en Go.

pour virer les décimales au-delà de la 1e en utilisant l'arrondi "si >= .5 alors prendre le nombre supérieur" :
Taille := Trunc(Taille * 10 + 0.5) / 10;
 
Par contre, FileSize donne la taille en octets, pas en Ko

function GetFileSize(filename: TFileName): String;
var
  fich : file;
  size : Integer;
begin
  OpenFile();
  AssignFile(fich, filename);
  FileMode := 0;
  Reset(fich, 1);
  size := FileSize(fich);
  CloseFile(fich);
  case size of
    0..1023             : result := Format('%d octets', [size]);
    1024..10239         : result := Format('%.1f Ko', [size/1024]);
    1048576..1073741823 : result := Format('%.1f Mo', [size/1048576]);
  else
    result := Format('%.1f Go', [size/1073741824]);
  end;
end;