caster un TObject en int

Version imprimable

Bonjour a tous,

J'ai une THashedStringList avec des elements auxquels j'associe des TObject grace a la fonction AddObject. Je fais:
Code:

1 2 3 4 5 6 7 8 9 10 var compteursRecordsTxt: THashedStringList; compteurTemp: Integer; dateFixe: TDateTime; begin ... compteurTemp := 0; compteursRecordsTxt.AddObject( DateToStr( dateFixe ), TObject( compteurTemp ));
Apres j'aimerai afficher mon objet avec:
Code:

1 2 3 4 objet := compteursRecordsTxt.Objects[0]; int temp := int(objet); memo1.Lines.Add( IntToStr( temp ) );
mais le "castage" de objet en int ne fonctionne pas ! Comment puis je m'y prendre? Merci

Code:

1
2
3
4
5
6
7
8
9
var
    compteursRecordsTxt: THashedStringList;
    compteurTemp: Integer;
    dateFixe: TDateTime;
begin
...
compteurTemp := 0;   
compteursRecordsTxt.AddObject( DateToStr( dateFixe ), Pointer(
compteurTemp ));

Code:

1
2
 
memo1.Lines.Add( IntToStr( Integer(compteursRecordsTxt.Objects[0])) );

Attention, on n'utilise pas de pointeur, on sert des 4 octet du pointer pour stocker un entier ne pas confondre avec

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
type
  PInteger = ^Integer;
var
    compteursRecordsTxt: THashedStringList;
    compteurTemp: PInteger;
    dateFixe: TDateTime;
begin
...
New(compteurTemp);
compteurTemp^ := 0;   
compteursRecordsTxt.AddObject( DateToStr( dateFixe ), Pointer(
compteurTemp ));

Code:

1
2
 
memo1.Lines.Add( IntToStr( PInteger (compteursRecordsTxt.Objects[0])^ ) );

02/04/2007, 19h02
Fabrice ROUXEL 1

Code:

int temp := INTEGER(objet);

devrait fonctionner sans probleme.