Discussion :

[zemeilleurofgreg]

Bonjour à tous,

je veux afficher un texte dans mon TStatusBar avant de passer dans une boucle, le problème c'est que l'affichage se fait après la boucle ! Pas cool !


Y a t'il une raison a cela ?

Voici ma fonction

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
19
20
21
22
vMSExcel := CreateOleObject('Excel.Application');     // Crée l'interface
   vMSExcel.Visible := False;                            // Interface invisible
   vMSExcel.DisplayAlerts := False ;                     // message d'alerte en route
   try
   vXLClasseurs := vMSExcel.Workbooks;
   vXLClasTbl    := vXLClasseurs.Open('E:\Borland\Delphi7\Projects\Code Postaux (avec excel)\Files\code_postaux.xls',unassigned,True);
   vFeuilTbl     := vXLClasTbl.WorkSheets[1];
   g1.MaxValue:=vFeuilTbl.UsedRange.Rows.count;
   NbTLigT:=vFeuilTbl.UsedRange.Rows.count;
   SetLength(MyArray,NbTLigT);
   sb.Panels[1].Text:='Chargement des données en cours...';
   for i:=0 to NbTLigT-2 do
   begin
    MyArray[i].CP:=vFeuilTbl.Cells.Item[i+2,1];
    MyArray[i].Ville:=vFeuilTbl.Cells.Item[i+2,2];
    g1.Progress:=i+2;
   end;
   Finally
    vXLClasTbl.Close;
    VarClear(vXLClasTbl); // Variant effacé
    VarClear(vFeuilTbl);  // Variant effacé
   end;

Merci d'avance

[ero-sennin]

Salut,

Essai ceci :

Code :

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

1
2
3
4
5
6
7
 for i:=0 to NbTLigT-2 do
   begin
    MyArray[i].CP:=vFeuilTbl.Cells.Item[i+2,1];
    MyArray[i].Ville:=vFeuilTbl.Cells.Item[i+2,2];
    g1.Progress:=i+2;
    Application.ProcessMessages;
   end;

Ca devrait fonctionner

[zemeilleurofgreg]

Salut Ero,
super, ça fonctionne.

Un grand merci.

@+