caster un TDateTime en TObject

bonjour a tous,

Je voudrais utiliser les THashedStringList. A chaque string de ma liste j'associe un objet grace a la methode AddObject. Cette objet est une date au format TDateTime. Comment faire pour passer cette date dans la methode AddObject?? Et comment faire pour afficher un TObject dans un ShowMessage?

Code:

---

1 2 3 4 5 6 7 8 9

var data: THashedStringList; objet: TOjbect; begin data := THashedStringList.Create(); data.AddObject('maString', heure); objet := data.Objects[0]; ShowMessage(objet)

---

avec heure une TDateTime (double). Merci

salut

deux solution

a la barbare
si l'heure et object est un entier

Code:

---

1 2 3 4 5

data := THashedStringList.Create(); data.AddObject('maString',Tobject(heure)); objet := Integer(data.Objects[0]); ShowMessage(format(%d,[objet]))

---

ou à la civilisé (poo)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Tobjdatetime = Tobject fValue : Tdatetime; Constructor Create(value : Tdatetime); Value : Tdatetime read fValue write read end;   ... Constructor Tobjdatetime.Create(value : Tdatetime); begin fvalue := value; end;   ... data := THashedStringList.Create(); data.AddObject('maString',Tobjdatetime.create(heure)); ShowMessage(formatdatetime('hh',(data.Objects[0] as Tobjdatetime).value));

---

@+ Phil

THashedStringList mince alors elle existait, lol, j'ai pondu ma THashStringList mais pour Delphi 3 ... ^_^

Bon, je vais la regarder sinon ...

je dirais que ton AddObject ne doit pas compiler, voici un exemple basé sur le tient, et je pense que j'ai une méthode encore plus barbare

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

type PDateTime = ^TDateTime; var data: THashedStringList; objet: TOjbect; heure: PDateTime ; begin new(heure); heure^ := Now();   data := THashedStringList.Create(); data.AddObject('maString', Pointer(heure)); objet := data.Objects[0]; ShowMessage(DateTimeToStr( PDateTime(objet)^)) end;

---

bien sur un dispose sera indispensable ...

oki merci ShaiLeTroll

De rien, ...

Pour la THashedStringList, j'ai vu, ce n'est pas ce que je pensais, mais c'est intéressant, le code est sympa, et je pourrais modifier ma THashStringList pour indexer différent mes hash ...