bonsoir à tous et à toutes ;


j'ai essayer d'afficher la taille d'un fichier dans une Tedit en KO mais j'obtiens toujours la taille en octets , le but est d'afficher la taille en Kilo octets du fichier ouvert .



mon code :

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
 
 
procedure TForm2.Button1Click(Sender: TObject );
var size : Integer;
var fichier : file of Byte;
begin
 
//size := FileSize(myFile);
AssignFile(fichier, 'C:\fichier.exe');
Reset(fichier);  //On Ouvre le Fichier
size:=FileSize(fichier);
//if (FileSize(myFile) / 1024) < 102
//then
 
 
Edit1.Text:=''+IntToStr(FileSize(fichier))+' Octets';
 
Label2.caption:=intToStr(Size);
CloseFile(fichier);
end;

J'obtiens 463872 Octets , je souhaite afficher 453 KO dans la Tedit .

463872 Octets = 453 Kilo Octets