filesize

Question

j'ai essayer d'utiliser la fonction filesize et il me di :
missing operator or semicolon alors que je les ai mit :
    AssignFile(f, dir1.Directory+file1.Items[i]); Reset(f);
    if (FileSize(f) / 1024) < 1024
        then size:=FormatFloat(Format, FileSize(f) / 1024)+' Ko'
        else size:=FormatFloat(Format, FileSize(f) / 1048576)+' Mo';
    CloseFile(f);
HELP ME PLEASE !

cs_Nono40 · Answer

Bestiol à trouvé le problème :
Format est le nom d'une fonction de Delphi, il faudrait utiliser un autre nom de variable... ( Delphi va penser que tu appelle la fonction Format plutôt que ta variable )

Sinon pour le reste ça marche...

--- :sleepy)  Nono du Moulin  :sleepy) ---

intello2001 · Answer

c'est justement le reste qui marche pa !

cs_Nono40 · Answer

Essaye ceci :
AssignFile(f, dir1.Directory+file1.Items[i]); Reset(f);
if (FileSize(f) / 1024) < 1024
then size:=FormatFloat('0.000', FileSize(f) / 1024)+' Ko'
else size:=FormatFloat('0.000', FileSize(f) / 1048576)+' Mo';
CloseFile(f);

--- :sleepy)  Nono du Moulin  :sleepy) ---

intello2001 · Answer

ca marche pa...

cs_Nono40 · Answer

Comment sont définies f, size, dir1 et file1 ( de quels composants s'agit-il ) ?
Tu dis qu'il il y a une erreur de compilation "Opérateur ou point virgule manquant", ou EXACTEMENT ( au caractère près ) est signalée l'erreur ?

--- :sleepy)  Nono du Moulin  :sleepy) ---

intello2001 · Answer

var
f: file of byte;
size: longint;

dir et file c TDirectoryDir et list

cs_Nono40 · Answer

dans "dir1.Directory+file1.Items[i]", à quoi correspond "i" ?? De plus, change le type de size en string (formatfloat renvoie une string) et donne nous carrément tout le code de l'évènement...

Bestiol et Nono40

intello2001 · Answer

procedure TForm1.Button6Click(Sender: TObject);
var
f: file of byte;
size: string;
begin
AssignFile(f, dir1.Directory+file1.Items[0]); Reset(f);
if (FileSize(f) / 1024) < 1024
then size:=FormatFloat('0.000', FileSize(f) / 1024)+' Ko'
else size:=FormatFloat('0.000', FileSize(f) / 1048576)+' Mo';
CloseFile(f);
end;

et le i en faite fo mettre 0,1,2,3,4,5,... c'est le numero du fichier dans la liste.
dir1 et file1 sa donne des truc genre c:\autoexec.bat

cs_Nono40 · Answer

Bon je suppose que Dir1 est du type TDirectoryListBox et File1 du type TFileListBox (merci de confirmer ) ?
Dans ce cas il faut modifier un peu le source :
...
AssignFile(f, IncludeTrailingPathDelimiter( dir1.Directory)+file1.Items[0]);
...

Et avec ça , ça doit fonctionner...

--- :sleepy)  Nono du Moulin  :sleepy) ---
PS de Bestiol: passe aux composants Win32 !!!

Filesize

9 réponses

Votre réponse

Discussions similaires