Discussion :

[neho88]

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

[BeanzMaster]

Salut la réponse se trouve dans le message d'erreur. Voir FileSize

Error: call by var for arg no.1 has to match exactly: Got "Text" expected "File"

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.BtnTailleFichierClick(Sender: TObject);
  var
    F                        : FILE;                                        // 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;

Sinon plus simple dans l'unté "FileUtil" tu as la fonction function FileSize(const Filename: string): int64; ou dans l'unité "LazFileUtils"function FileSizeUtf8(const Filename: string): int64;

A+

Jérôme

[Roland Chastain]

Hello !

Petite précision pour compléter la réponse de Jérôme. Pour avoir le résultat attendu (en octets), il faut écrire Reset(F, 1); ; ou alors déclarer le fichier comme file of byte.

P.-S. Ou alors il faut multiplier le résultat par 128.

Untyped files have a default record size of 128, if the second parameter to Reset isn't specified.

https://www.freepascal.org/docs-html...m/filepos.html

[neho88]

Bonjour,
merci pour vos excellentes réponses.
l'idée est bonne, mais ...
---
j'essaye de traiter un fichier texte, ligne par ligne
et si je le déclare en 'File', je ne peux plus me servir de 'ReadLn'

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
 
procedure TForm1.BtnTailleFichierClick(Sender: TObject);
  var
    F                        : textfile;                                        // fichier à décoder
    Taille                   : int64;                                           // taille du fichier
    tampon                   : string;                                       // lignes succesives chargées du fichier E3F
  begin
    AssignFile(F, 'c:\texte.txt');
    try
      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
      readln(F, tampon);                                                    // lis la 1ère ligne du fichier qui correspond au intitulé
      // traitement de la ligne
    Finally
      closeFile(F);                                                            // fermeture du fichier
    end;
 end;

Bonne journée

[jurassic pork]

hello,
une autre façon de lire les lignes d'un fichier texte : le TStringList.

Exemple :

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
procedure TForm1.Button2Click(Sender: TObject);
var textLines: TStringList;
     K: integer;
begin
  memo2.Append('taille du fichier : ' +  
                         inttoStr(FileSize('unit1.Pas')) + ' octets');   // FileSize dans unité FileUtil
  textLines := TStringList.Create;
  try
    textLines.LoadFromFile('unit1.pas');
    for K:=0 to pred(textLines.Count) do 
         // lecture ligne par ligne
         begin
            Memo2.Append(textLines[K]);
         end;
  finally
  textLines.free;
  end;
end;

Ami calmant, J.P

[Roland Chastain]

et si je le déclare en 'File', je ne peux plus me servir de 'ReadLn'

Rien ne vous empêche de déclarer les deux. Il y a deux opérations distinctes : connaître la taille du fichier, et le lire ligne à ligne.

[neho88]

Bonjour,
merci pour la réponse.
ce serait une bonne solution si je n'avais pas besoin d'utiliser filepos(F) pour avertir la personne ou en est le décodage dans le fichier.
bonne journée