DOWNLOADER V0.0.0.1

Commentaire de kopierreko le 01/01/2009 20:32:27

Je voudrais ajouter une chose qui me paraît importante car on voit % Bites sur % mais ça ne représente pas grand chose, sauf pleins de chiffres ^^
Comment calculer le % effectué:

Mathématiques: Tableau en croix: J'ai X bites sur Y bites, combien j'en aurais sur 100 bites ?
=> X*100/Y

Delphi: J'ai procédé comme ceci:


procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;const AWorkCount: Integer);
Var

A: Real;
B: Real;
C: Real;
D: string;
Format: String;
E: string;
begin
if AWorkMode = wmRead then
begin
{Le composant nous renvoit ici quand il travaille}

   ProgressBar1.Position := AWorkCount ;

    current.Text :=IntToStr(AWorkCount); // Je mets X dans un edit ( je fais tjr comme ça, dsl )
    total.Text :=    inttostr(ProgressBar1.Max); // Pareil pour Y

A:= StrToFloat(current.Text);
B:= StrToFloat(total.Text);
C:= StrToFloat(cent.Text); // Vaut 100
D:= FloatToStr(A*C/B); // X*Y/100
Format := '0'; // Pour les chiffres après la virgule , ici, 0
E:=FormatFloat(format, StrToFloat(D)); // code de formattage
prcent.Caption:= E+'%'; // affichage qui donne x%

Merci beaucoup pour cette source que je cherche depuis bien longtemps. Bon boulot !
Bye
Bonne Prog

PS: Il y a beaucoup plus simple pour faire ce que j'ai fait ci-dessus :)