Bonjour,
---
je cherche à trouver la taille d'un fichier texte.
---
---
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 procedure TForm1.BtnTailleFichierClick(Sender: TObject); var F : textfile; // fichier à décoder Taille : int64; // taille du fichier begin AssignFile(F, 'c:\texte.txt'); reset(F); // positionne le fichier en lecture taille:=FileSize(F); // récupère la taille totale du fichier BtnTailleFichier.Caption:=IntToStr(taille); // affiche la taille end;
la procédure fonctionne très bien en delphi 7
sous Lazarus, j'obtiens le message d'erreur: Error: call by var for arg no.1 has to match exactly: Got "Text" expected "File"
j'obtiens la même erreur en utilisant FilePos ...
---
merci pour le temps que vous passez à essayer de comprendre ce que nous essayons de faire.
bonne journée
Partager