bonjour a tous,
j'utilise des THashedStringList. Voici mon code:
Or il me renvoit 0 au lieu de 5. Merci de votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 var compteurTemp: Integer; compteurRecordeTxt: THashedStringList; dateFixe: TDateTime; idx: Integer; begin compteurTemp := 5; compteursRecordsTxt.Add( DateToStr( dateFixe ) ); compteursRecordsTxt.AddObject( DateToStr( dateFixe ), Pointer( compteurTemp ) ); idx := compteursRecordsTxt.IndexOf( DateToStr( dateFixe ) ); ShowMessage( IntToStr( Integer(compteursRecordsTxt.Objects[idx]) ) )
Partager