Discussion :

[Art19]

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 :

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

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

[anapurna]

salut

deux solution

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

Code :

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

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 :

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
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

[ShaiLeTroll]

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 :

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
 
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 ...

[Art19]

oki merci ShaiLeTroll

[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 ...