Actualisation en temp réel... Mais lente pourquoi???

Question

Bonjour!

Ces codes permettent d'actualiser mes données se trouvant dans le combobox (du moins importées d'un champ donné d'une table).
Curieusement, pour voir que les données sauvegardées sont belle et bien actualisées dans mon combobox . Il faut sortir completement de mon programme et le relancer.
Y a t-il un code a rajouté pour eviter ce genre de relancement.

begin
  Logement.Open;
  Logement.DisableControls;
  try
  while not Logement.Eof do
  begin
  locataire.Items.Add(Logement.FieldByName('nom').AsString);  
  Logement.Next;
end;
finally

end;


Developper est une dimension pour moi.
Leader2000

cs_walidlam · Answer

salut!!
utiliser les Evénements
form.onshow
TableAfterPost 
...
  @+

cs_cantador · Answer

Bonjour,

Si la comboBox ne se met pas à jour ce la vient du fait
que la procédure est vraisemblablement mal située..

il est nécessaire de la placer dans un premier temps sur le OnCreate de la forme et de ce fait à l'ouverture la combo se met à jour.

Puis en cours de modification, d'ajout ou de suppression d'enregistrements de la table logement, il suffit de rafraîchir cette table en relançant la même procédure.



///sur le Oncreate
Logement.Open;
StockCombo;


/// après Insert, append ou delete
Procedure StockCombo;
begin
Logement.DisableControls;

Try
Logement.Refresh;
while not Logement.Eof do
begin
locataire.Items.Add(Logement.FieldByName('nom').AsString);
Logement.Next;
end;

Finally
Logement.EnableControls;
end; 



cantador

cs_cantador · Answer

oubli d'un "end" :


///sur le Oncreate
Logement.Open;
StockCombo;


/// après Insert, append ou delete
Procedure StockCombo;
begin
Logement.DisableControls;

Try
Logement.Refresh;
while not Logement.Eof do
begin
locataire.Items.Add(Logement.FieldByName('nom').AsString);
Logement.Next;
end;

Finally
Logement.EnableControls;
end; 

end;



cantador

Leader2000 · Answer

En precompilation (ctrl +F9). Il y a un bug à ce niveau là (colorié en rouge)


Logement.Open;
StockCombo;


/// après Insert, append ou delete
Procedure StockCombo;
begin
Logement|
.DisableControls;

Try
Logement.Refresh;
while not Logement.Eof do
begin
locataire.Items.Add(Logement.FieldByName('nom').AsString);
Logement.Next;
end;

Finally
Logement.EnableControls;
end; 

end;



Developper est une dimension pour moi.
Leader2000

cs_cantador · Answer

heu...

Logement.DisableControls;

cette écriture était déjà dans ton code précédent..

delphi ne trouve pas le query car
bien entendu il faut soit publier
la procédure ou l'intégrer dans le type de la forme.

c'est le b.a.-ba..

cantador

f0xi · Answer

Non, non et non,

Quand on met a jours un composant basé sur TStrings (TListBox, TComboBox, TRadioGroup, TCheckListBox, etc) et/ou basé sur un TCollection (TMenu, TCategoryButton etc) il faut utiliser un tampon TStringList et les procédures BeginUpdate, EndUpdate.


voici un exemple :

procedure TFormX.updateCombo;
var S : TStringList; 
begin
  S := TStringList.create;
  ComboBox.items.beginUpdate;
  try
    // requette de données
    // SI données disponibles
      // BOUCLE ?
        S.Add({donnée});
      // fin BOUCLE
      comboBox.clear;
      comboBox.items.assign(S);
    // fin SI
    // SINON
      LabelErreur.caption := 'les données ne sont pas disponibles.';
  finaly
    S.Free;
    comboBox.items.endUpdate;
  end;
end;



________________________________________________________
besoin de câbles audio, vidèo, informatique pas cher ?

cs_cantador · Answer

oui ok f0xi pour les TStringList, beginupdate et endupdate..
mais le plantage était du à l'absence de :
procedure TFormX.updateCombo;


cantador

Actualisation en temp réel... Mais lente pourquoi???

7 réponses

Votre réponse

Discussions similaires