je vien de commencé le delphi cet aprem et g un probleme :


procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;

begin

for I := 1 to 10000 do
begin

Label1.Caption :=('je veux afficher la valeur de i') ;

progressbar1.Position := i ;
end;

end;


ce doit etre tout con mais je ne sais pas
merci d'avance

Il faut faire :
Label1.Caption := IntToStr(i);

et tu devrais rajouter aussi :
Application.ProcessMessage;
dans ta boucle pour que l'affichage se fasse correctement.

-------------------------------
Réponse au message :
-------------------------------

> je vien de commencé le delphi cet aprem et g un probleme :
>
>
> procedure TForm1.BitBtn1Click(Sender: TObject);
> var
> i:integer;
>
> begin
>
> for I := 1 to 10000 do
> begin
>
> Label1.Caption :=('je veux afficher la valeur de i') ;
>
> progressbar1.Position := i ;
> end;
>
> end;
>
>
> ce doit etre tout con mais je ne sais pas
> merci d'avance
>
>