Discussion :

[Marley_T]

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

[Aka Guymelef]

Pourquoi ne pas diviser par 1024 dans ce cas là ?

Code :

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

1
2
3
4
5
6
var 
  Size: Integer;
begin
  Size := Trunc( FileSize( fichier ) / 1024 );
 
end;

[Marley_T]

grand merci aka Guymelef , ton code marche trés bien

voici lez code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
AssignFile(fichier, 'C:\fichier.exe');
Reset(fichier);  //On Ouvre le Fichier
size := Trunc( FileSize( fichier ) / 1024 );
 
{ pour l'affichage en octets }
Edit1.Text:=''+IntToStr(FileSize(fichier))+' Octets';
{ pour l'affichage en KiloOctets , merci à Aka Guymelef }
Edit2.Text:=intToStr(Size)+ ' KiloOctets';
CloseFile(fichier);

merci encore