Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter
TProgressBar sur taille de fichier
Bonjour
J aimerais savoir comment faire progresser un TProgressBar en fonction de la taille du fichier lu.
Actuellement je stocke le nombre de ligne de mon fichier dans la propriete Max de la barre et à chaque ligne lue j incremente la position de ma barre...
J aimerais recuperer la taille du fichier (pour Max) et faire progresser la barre en fonction du poids de la ligne lue mais je ne sais pas comment faire...
merci pour votre aide
Utilise un TFileStream, la propriété Size donnera la taille donc Max, et Position ben Position
Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
Attention Troll Méchant !
"Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
L'ignorance n'excuse pas la médiocrité !
L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
Il faut avoir le courage de se tromper et d'apprendre de ses erreurs
Bonjour,
Regarde si FileSize() ne te convient pas.
Pour le poids d'une ligne : Length(S) donne la longueur de S, tu ajoutes le marqueur de fin de ligne et tu multiplies par la taille d'un caractère.
Delphi 5 Pro - Delphi 11.3 Alexandria Community Edition - CodeTyphon 6.90 sous Windows 10 ; CT 6.40 sous Ubuntu 18.04 (VM)
. Ignorer la FAQ Delphi et les Cours et Tutoriels Delphi nuit gravement à notre code !
Merci
Est ce à dire que tous les caracteres n ont pas la même taille ?Envoyé par tourlourou
Si, mais c'est selon si tu es en unicode ou pas (si j'ai bien compris).
L'urgent est fait, l'impossible est en cours, pour les miracles prévoir un délai. :bug: ___ "http://club.developpez.com/regles/#LIII-A"Écrivez dans un français correct !!
C++Builder 5 - Delphi 6#2 Entreprise - Delphi 2007 Entreprise - Delphi 2010 Architecte - Delphi XE Entreprise - Delphi XE7 Entreprise - Delphi 10 Entreprise - Delphi 10.4.2 Entreprise - Delphi 11.3 Entreprise - Visual studio 2022
OpenGL 2.1 - Oracle 10g - Paradox - Interbase (XE) - PostgreSQL (15.7)
ok merci, je comprends mieux
Histoire de simplifier l'écriture, on peut remplacer Length(Text) *SizeOf(Char) par ByteLength(Text)
Répondre avec citation
Partager