Discussion :

[eric_de_bretagne]

Bonjour à tous,

Je ne suis pas bon en math, désolé.
Avec ma procédure de recherche de fichiers, j'aimerais lors de ma recherche, afficher le pourcentage de fichiers trouvés:
Je réaffiche les fichiers trouvés dans un RichEdit.
Le nombre total de fichiers à rechercher est inconnu, que j'ai appelé "X".
X peut être de 2, ou 3000, ou plus grand si je recherche dans tout le lecteur(C).

Lors de ma recherche, j'utilise un TLabel,

Code :

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

Label5.Caption:= Format(' Pourcentage de fichier(s) trouvé(s) : %d %%', [x]);

Quelqu'un pourrait-il m'aider à trouver la solution, afin d'afficher un pourcentage +/- correctement calculé ?

En vous remerciant d'avance.
Sincères salutations.

[M.Dlb]

Hello,

C’est un problème complexe avec une réponse simple : comment veux-tu calculer un pourcentage d’un nombre que tu ne connais pas ?
C’est impossible, il faut donc afficher une animation qui fait patienter type sablier, plutôt que d’afficher un chiffre en pourcentage. Ce que tu peux aussi faire, c’est incrémenter un compteur à chaque fichier trouvé, et tu affiches ce compteur.

[eric_de_bretagne]

Bonjour M.Dlb ,
Merci pour votre réponse,
c'est bien ce que je pensais, mais comme je ne suis pas bon en math, j'ai donc posé la question.
C'est effectivement ce que j'ai fais, avec un Progressbar et un Label qui affiche approximativement la recherche
Pour finir à 100 % à la fin de la recherche, ainsi que le progressBar, ça le fais pas trop mal , mais on voit bien que ce n'est pas très bien syncro parfois.
mis dans la procédure de recherche:

Code :

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

1
2
3
4
5
x:=0;
while resultat <0 Do
x:= x+1;
inc(x);
Label5.Caption:= Format(' Pourcentage de fichier(s) trouvé(s) : %d %%', [x]);

puis, la recherche de fichiers

Le compteur; j'ai bien trouvé, un deuxième label affiche le nombre de fichiers trouvés avec RichEdit.LinesCount.
et pour finir:

Code :

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

1
2
Label2.Caption:= IntToStr(RichEdit.LinesCount);
Label5.Caption:= '100 %';

Mais, je voulais savoir si il y avait une meilleure solution
En vous remerciant,
Sincères salutations.

[anapurna]

salut

pour ton calcul de pourcentage

Code :

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

1
2
3
4
5
6
7
8
9
10
11
fin := False;
While Not(DernierFichier) do 
begin
  NbFichierLu := NbFichierLu+1;
  If  TestSelection(NbFichierLu) Then 
    NbFichierSelection := NbFichierSelection+1;
 
  if NbFichierLu <> 0 Then 
    X:= NbFichierSelection /  NbFichierLu
  DernierFichier := IsDernier();
end;

[Roland Chastain]

Pour finir à 100 % à la fin de la recherche,

Vous vous entêtez à vouloir afficher un pourcentage alors que dans le cas présent cela n'a tout simplement aucun sens puisque, comme vous l'avez dit vous-même, le nombre de fichiers à trouver est inconnu. Donc le seul message qui ait du sens, c'est "recherche terminée, tant de fichiers trouvés".

[eric_de_bretagne]

bonsoir,
Je ne m'entête pas je voulais montrer mon premier codage,
J'ai bien compris, mais je débute, d'où ma question , bien que la réponse est comme vous me dites, voilà...

Merci à tous de m'avoir répondu, je considère le sujet comme résolu
Sincères salutations

[Roland Chastain]

Je ne m'entête pas je voulais montrer mon premier codage,

D'accord. Ce n'était pas une reproche de toute façon.

Bonne continuation ! Vos questions sont les bienvenues dans le forum.