[LIST] Meilleur moyen pour la gestion d'un fifo de données.

**Rayek** · 26/09/2007, 16h06

Voila en gros ce que je cherche à faire ^^

1- Des données arrivent sur mon IdHttpServeur
2- Je les ajoutes dans une liste de données à traiter

Pendant ce temps

1- Récupération de la première données de la liste
2- Traitement des données de la liste
3- Suppression des données de la liste
4- retour en 1

Les données arrivent en méthode post et seront mises dans un record puis ajouter à une liste.
J'ai pensé utiliser une TObjectList mais ne l'ayant jamais utilisée, je me demande si c'est bien la bonne solution.

En fait j'aurais besoin d'une pile de stockage qui empile un record et qui permet de dépiler par le bas.
Est ce que le TObjectList conviendrait il à cette solution ? (même avec un record)

**Cl@udius** · 26/09/2007, 16h42

Envoyé par Rayek

Est ce que le TObjectList conviendrait il à cette solution ?

Salut MalataRayek

Je n'ai pas eu encore l'occasion de les utiliser mais, je pense que TObjectQueue (FIFO) et/ou TObjectStack (LIFO) sont destinés à ton besoin.

@+ Claudius

**qi130** · 26/09/2007, 16h48

Waskol a développé 1 truc sympa pour gérer ce type de problématique...

Un p'tit coup de recherche, et hop !

**Rayek** · 26/09/2007, 16h51

Merci Cl@uCl@u

Mais le problème c'est que ca m'oblige a transformer mon Record en TObject, car je n'ai pas vraiment besoin d'utiliser un Object.

Je pourrais passer par un Array, mais ca m'obligerait à faire toutes les fonctions de manipulation de mes enregistrements.
Et je voudrais éviter de passer par une base de données pour le stockage temporaire car je n'en vois pas l'utilité pour un petit sytème comme ça.

En fait j'aimerai bien un solution du type

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
 
Type TMonRecord = record
 Blabla : String;
 UnEntier : Integer;
end;
 
MyList : TxxxxList;
MonEnr : TMonRecord
begin
  Recupdonnees(MonEnr);
  Mylist := TxxxList.Create;
  try
    MyList.Add(MonEnr);
    Traitement(MonEnr);
    MyList.Delete(0);
  finally
    MyList.free;
  end;
end;