Discussion :

[Art19]

Bonjour a tous,

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

Code :

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

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 :

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

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

[ShaiLeTroll]

Code :

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

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 :

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

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 :

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

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 :

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

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

[Fabrice ROUXEL 1]

Code :

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

int temp := INTEGER(objet);

devrait fonctionner sans probleme.